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Foreword 



This latest addition to COMPUTEI's library of books for Atari 
computer users includes more than 30 never-before-published 
articles and programs. 

COMPUTEI's Atari Collection, Volume 1 has something for 
every Atari owner. Whether you have a new Atari 800XL or 
the older 400, whether you're a beginning or experienced pro- 
grammer, or just enjoy using your Atari, you'll find enough 
useful articles and programs to keep you in front of the key- 
board for months. 

If you enjoy games (and who doesn't?), you'll find 
"Nessie" filled with photographic fast action as you snap pic- 
tures of the elusive monster. If you want to try to out- 
maneuver and outwit your computer or a friend, "Reversi" 
and "Memory Match" fit the bill. Even youngsters can play — 
we've included "Pyramid Math," a two-player math contest, 
and "Alphabone Hunt" to entertain and educate children. 

Do you need practical applications? They're here. "Invest- 
ment Tracker" helps analyze your investments, and "Disk 
Catalog Utility" organizes your disk collection. 

What if you just want to sit down and program? There are 
useful tips scattered throughout this book, as well as numer- 
ous articles that help you learn how to get more out of your 
Atari. Do you want to program sound? Then use the editors 
included with "Three Music Editors for Your Atari" to create 
notes, chords, or an entire song. Do you need a fast joystick 
routine in BASIC for your special game? You'll find what you 
need in "Two Fast and Simple Joystick Routines." And "An 
Introduction to Atari PEEKs and POKEs" shows you how to 
quickly and easily enhance your programs with these two im- 
portant commands. 

COMPUTEI's Atari Collection, Volume 1 is packed with 30 
original programs. They've never appeared anywhere else 
before. And because we've included "The Automatic Proof- 
reader," program entry is virtually mistakeproof. 

An entire year has gone by since COMPUTE! Publications 
released a new book just for Atari users. We're sure you'll 
agree the wait's been worth it. 



• Chapter 1 



• Getting Started 
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An Introduction to Atari 
- PEEKs and POKEs 

Charles Brannon 



If you're a beginning BASIC programmer, you may not realize 
that there's more to your Atari than BASIC. In fact, the Atari 
has power that BASIC just doesn't address. For example, you 
can redefine the character set, so that the letter A appears as 
an alien invader. Player/missile graphics lets you move and 
animate images independently of the graphics screen. Custom 
display lists and display list interrupts give a programmer 
complete control over the graphics screen, and the POKEY 
chip gives you more than just four-voice sound. 

It's possible to use many of these features in BASIC, 
though some require machine language and most are beyond 
the beginning programmer. However, there are many power- 
ful capabilities that anyone can put to good use right away — 
and since BASIC can't access them directly, you need two spe- 
cial BASIC keywords: PEEK and POKE. 

Atari Memory Management 

The 6502 microprocessor is the brain of your Atari. It can di- 
rectly address any of the 65,536 memory locations. Some of 
this memory is RAM, the read/write memory used to hold 
data and programs from tape or disk; the rest of the memory 
is ROM (Read Only Memory) that holds BASIC and the 
operating system. When the power is turned off, RAM is 
erased, but the pattern in ROM is not dependent on power. 
You may already be familiar with ROM and RAM. 

But there's also a third kind of memory which isn't really 
memory at all. Instead, it is a facade used by input/output 
chips. Input/output chips in the Atari include the GTIA, a 
graphics chip; ANTIC, which drives the GTIA to produce 
graphics modes and player/missile graphics; and POKEY, 
which reads the keyboard and drives serial input/output (used 
to talk to a disk drive or printer). These chips require infor- 
mation (such as what characters to put on the screen) and can 
produce information (such as which key is being pressed). 

To make things easy, these chips pretend to be memory 
locations. POKEing to an I/O (input/ouput) memory address 
alters the action of a chip, and PEEKing will give you infor- 
mation from the chip. 
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From the point of view of the computer, these are mem- 
ory locations. In fact, some behave like RAM. For example, 
you can POKE a number to a location, and then PEEK the 
location to get the number back. 

Most I/O addresses are either read-only or write-only. 
Read is like ROM. Write-only memory locations can be 
changed, but you can't PEEK them to see what the current set- 
ting is. 

Sometimes a given memory location is used for two func- 
tions. Writing (POKEing) to the location does one thing, while 
reading (PEEKing) does another. For example, the color loca- 
tions in hardware will change the screen color if you POKE 
them, but PEEKing them returns a meaningless value. To get 
around this, the operating system (the master program that co- 
ordinates all other programs) keeps several shadow registers 
that can be PEEKed and POKEd. These locations are ordinary 
memory locations, but their values are copied to the hardware 
color registers every 1/60 second. Many hardware features are 
accessed through their corresponding shadow registers. 

PEEK and POKE 

The personality of the operating system is affected by many 
POKEs, and you can read useful information hidden to BASIC 
with PEEK. 

POKE is used to change memory (although you can 
POKE to ROM, nothing changes). The format is POKE 
address, data. The address is a number from to 65535. Each 
number accesses a memory cell, which can hold a number 
from to 255. 

A memory cell can be thought of as holding eight tiny 
switches. If you assign ascending powers of two to each 
switch, you can use these switches to represent numbers. This 
convention is called base 2, or binary. For advanced PEEKing 
and POKEing, an understanding of binary numbers can be 
most helpful. However, all you need to know to get started is 
that a memory location can only hold a number from to 255. 

PEEK is the converse of POKE, but it is a function rather 
than a command. PEEK returns a value, and any command 
that can use a value can use PEEK. For example, consider how 
PRINT can be used. You can PRINT 4, which displays a num- 
ber; PRINT TOTAL, which displays the number held by the 
variable name TOTAL; or PRINT PEEK(53279), which dis- 



Chapter 1 



plays the number held in location 53279. Note, too, that PEEK 
can be used with POKE (for example, POKE 106,PEEK 
(106)-8). 

Keyboard Control 

In BASIC, you can use GET to read a character from the key- 
board. But GET always waits for a keystroke. Say you want to 
periodically check for keyboard input. If no key is pressed, 
your program continues. But since GET always waits for a 
keystroke, it will freeze your program until a key is pressed. 

Instead of using GET, you can check location 764 with 
PEEK(764). When it returns a 255, no key has been pressed 
and you can continue your program loop. Whenever it doesn't 
return 255, you can use GET to read the ATASCII value of the 
keystroke. 

Another problem with GET is that you must first OPEN a 
file to the keyboard device. If you only want to wait for a key- 
stroke, you can use something like this: 

10 PRINT "PRESS ANY KEY TO CONTINUE. " 
20 IF PEEK <764> =255 THEN 20 
30 POKE 764,255 

The value returned by location 764 is not in ATASCII, the 
convention used by ASC and CHR$. The number is an in- 
ternal representation of the key, expressed in terms of what 
row and column the key is in. Run this small program to see 
what values keystrokes return. When you press a key, the in- 
ternal value is shown: 

10 PRINT PEEK (764) : GOTO 10 

Notice that until you press a key, the value is 255. That's why 
you can wait for a keystroke by checking until the location no 
longer holds 255. Also note that when CTRL is held down, 
the value is greater than 127. If either SHIFT key is used, the 
value is greater than 63, but less than 128. 

This location is used as a one-key buffer. Even if a pro- 
gram is not accepting keyboard input, this location still 
changes when you press a key. If the program then tries to 
GET or INPUT from the keyboard, location 764 will provide 
the keystroke you pressed earlier, even if you are no longer 
pressing the key. 
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POKE 764,255 clears any value out of the keyboard 
buffer. You can even POKE 764 with other values, and watch 
how these values cause the computer to type out a character 
automatically. 

When you ran the program, you may have noticed that 
764 cannot tell if you are holding down a key. Once you press 
a key, the value in 764 changes and remains changed until 
you press another key. It will not return to 255 when you let 
go of the key. Sometimes, however, you may want to see if a 
key is being held down. This small program simulates the ac- 
tion of an organ. When you press a key, a tone sounds as long 
as you hold down the key and stops when you let go: 

10 IF PEEK (53775) =255 THEN SOUND 0,0,0,0:GO 

TO 10 
20 SOUND 0, 100, 10, S: BOTO 10 

Location 53775 holds 255 if no key is being pressed, 251 if a 
key is down, and 247 if the SHIFT key is being held down. 

Controlling the Inverse Key 

If you are GETting or INPUTting from the keyboard, you may 
not want the user to enter inverse or lowercase characters. 
Since the INVERSE key is easily struck by mistake on the 
400/800 models, you need a way to force inverse video off. 
Alternately, you may want to "press" the INVERSE key for 
the user, so that everything he types comes out in reverse. 
Location 694 controls this. POKE it with a 128 to force inverse 
characters, and to disable inverse. It's a temporary thing, 
though. If the user hits the INVERSE key again, 694 changes. 
This location will not affect how text is printed, only how it's 
received from the keyboard. 

A similar location, 702, stores the status of the 
CAPS/LOWR key. If CAPS lock is on, 702 holds 64, but it 
holds if the keyboard is in lowercase mode. Location 702 
will hold 128 if the keyboard is in CTRL-mode (same as 
CTRL-CAPS/LOWR). You can use POKE to force the key- 
board into the desired mode under program control. Try this: 

10 DIM At (10) 

20 PRINT "ENTER", "0 FOR LOWERCASE ": PR I NT , " 

64 FOR UPPERCASE" : PRINT ,"128 FOR CONTRO 

L MODE" 
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30 


INPUT X:IF XO0 AND X 




N 30 


40 


POKE 702, X 


50 


INPUT A4 


60 


PRINT A*:PRINT :PRINT 


70 


GOTO 20 



>64 AND X0128 THE 



Consoling Information 

The console keys START, OPTION, and SELECT cannot be 
read as other keyboard keys can. Whatever you use them for 
is up to you, but you can easily read them by checking loca- 
tion 53279. Here are the values returned: 

7 No console keys held down 
6 START key alone 
5 SELECT key alone 

3 OPTION key alone 

START, SELECT, and OPTION pressed simultaneously 

1 OPTION and SELECT together 

2 OPTION and START together 

4 SELECT and START together 

This simple program demonstrates how that can be used: 

10 A=PEEK (53279) 

30 ON A+l BOSUB 50,60,70,80,90,100,110 

40 GOTO 10 

50 PRINT "START+SELECT+OPTION" : RETURN 

60 PRINT "DPTION+SELECT" : RETURN 

70 PRINT "OPTION+START" : RETURN 

80 PRINT "OPTION" : RETURN 

90 PRINT "SELECT+START" : RETURN 

100 PRINT "SELECT" : RETURN 

110 PRINT "START" : RETURN 

Notice that when you press a console key, that key contin- 
ues to return its value as long as you hold it down, but that it 
returns to normal (7) when you let go. This rapid-fire repeat is 
often undesirable. To remove it, add this line to the program: 

20 IF PEEK (53279) =A THEN 20 

This waits until you let go of the selected key to print 
the message on the screen, so you get only one message each 
time the key is pressed. Nothing will happen until you let go 
of the key. 
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Remember how some locations have different functions 
when read or written? Location 53279 is one of them. When 
read, it tells you what console keys are being held down. But 
if you POKE it with a zero, the internal speaker (or the ex- 
ternal speaker on XL Ataris) makes a tiny click. Zero makes 
the speaker cone move out, but the operating system puts an 
eight (which moves the cone back in) into 53279 every 1/60 
second. Rapidly POKEing this location with zeros creates a 
buzzing noise. Notice how those two functions tied to this 
location have nothing in common. 

While we're on the subject of keyboard POKEs and 
PEEKs, here's how to disable the BREAK key. You might want 
to do this to prevent anyone from exiting and listing your 
BASIC program, or you may want to protect the user from 
accidentally breaking out of a program. Just use these two 
POKE statements: 

POKE 16,64:POKE 53774,64 

You can reenable the BREAK key by changing graphics modes 
or by pressing SYSTEM RESET. If you don't want the BREAK 
key reenabled, you must repeat these POKEs after every 
GRAPHICS command or any OPEN statement. 

Although SYSTEM RESET cannot be disabled, you can 
make someone wish they hadn't pressed it. If you POKE 580 
with a value other than 0, the SYSTEM RESET will act as if 
you turned the power off and on. This is called a cold start, as 
opposed to the warm start normally performed by this key. 
POKE 580,0 to reenable warm start. 

Screen Play 

Although it's easier to use SETCOLOR, you can also POKE di- 
rectly into the color registers to set colors. POKEing can be 
faster and more compact, since there is only one number to 
evaluate instead of four. Locations 708-712 correspond di- 
rectly to SETCOLOR through SETCOLOR 4. Each location 
holds both the color and luminance. Just multiply the color 
number (0-15) by 16 and add in the luminance (0-15). 
SETCOLOR a,b,c corresponds to POKE 708 + a,b*16 + c. For 
example, POKE 712,10 changes the border color to white. 

Location 559 can, among other things, turn the screen dis- 
play on and off. POKE 559,34 is the normal setting. If you 
POKE 559,0 the screen blanks to the border color. 
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How can you use this? To speed up programs. Since it 
takes some time to display the screen, the Atari can run up to 
30 percent faster with the screen turned off. You can blank the 
screen when you perform a long calculation, as long as you 
warn the user so that he or she doesn't panic when the screen 
blanks out. You may also want to blank the screen while you 
are drawing a complex image, then turn the screen back on to 
make your graphics instantly appear. 

You may have heard of locations 82 and 83. These loca- 
tions are primarily used to let you adjust the width of the 
screen, since some televisions cannot display the full width of 
the screen. Location 82 controls the left margin. PEEK will re- 
turn the current setting, and POKE resets it. The left margin is 
the number of blank spaces from the edge of the screen. If you 
want a full 40-column screen, use POKE 82,0. 

The right margin, set by location 83, is a number from 
to 39 and represents the number of spaces from the left side of 
the screen (not from the left margin). After you change the 
margins, subsequent PRINT statements will conform to the 
new margin settings. Do not make the left margin greater than 
the right margin. Why not? Try it and find out! Also beware 
that if you make the width of the screen too small, you cannot 
type any commands. In any case, SYSTEM RESET restores the 
left margin to 2 and the right margin to 39. 

Curse That Cursor! 

The cursor can be a pesky critter, since it remains on all the 
time, showing the current PRINT position. It's easy enough to 
disable it, though— just POKE 752,1. A zero in 752 enables 
the cursor. After you POKE this location, the cursor will not 
change until the next PRINT statement moves it, or after you 
clear the screen. Any change in graphics modes will restore 
the cursor. SYSTEM RESET also turns the cursor back on. 

You can also control how inverse characters appear. A two 
in location 755 is the normal state. All the dots making up the 
character will reverse their color. POKE it with a zero, and all 
inverse characters will not be inverted, but will appear as nor- 
mal characters. Put a one here, and inverse characters will be 
invisible. A three makes all inverse characters appear as in- 
verse spaces (opaque). Add four to any of these values, and all 
text will appear upside-down and mirror-reversed. (This fea- 
ture was originally used in videogames that projected the 
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screen onto a mirror.) Since the cursor is just the inverse of 
whatever character it is sitting on, 755 also affects the appear- 
ance of the cursor. Try this short program to see how you can 
use 755 to make flashing text: 

100 print " oang^BBagBigaaiiia can blink- 

110 POKE 755, 2-PEEK (755) : FOR W= 1 TO 50:NEXT 
W:GOTO 110 

You can easily read the position of the cursor by checking 
locations 84 and 85. Location 84 holds the current row (the 
vertical position of the cursor) and ranges from to 23. The 
current column, 0-39, is in location 85. You can use PO- 
SITION in BASIC to directly move the cursor to an X,Y loca- 
tion, but with POKE you can change the row or column 
separately. When you change 84 or 85, the cursor does not ac- 
tually move until a PRINT statement is used. 

POKE 85 is the replacement for Atari's missing TAB state- 
ment. It makes formatted displays easy. For example, the line 

Z=Z + 6:PRINT TAB(20-19*SIN(Z));CHR$(42):GOTO 10 

prints a sine wave in Microsoft BASIC. It's easily translated to 
Atari BASIC: 

10 Z=Z+6:POKE 85 , 20- 1 9 * S I N < Z > : PR I NT CHR*<42 
) : BOTO 10 

In a graphics mode, locations 84 and 85 control the po- 
sition of the graphics cursor, not the text cursor. The text 
cursor is set in these modes by location 656 (row) and 657 
(column). 

You can also change location 201. It holds the number of 
spaces between comma zones. When you print a list of vari- 
ables (such as PRINT A,B,C$) each item is tabbed over into a 
separate zone ten spaces wide. If what you are printing over- 
flows into the next zone, the following item will have to go 
into the zone after that. You can change the width of the 
comma zone by POKEing 201. Do not ever put a in this 
location, or the computer will freeze up when it encounters 
the comma, forcing you to press SYSTEM RESET or turn off 
the power to regain control. You may want to change it back 
to 10 when you are through, or other programs using PRINT 
may tab strangely. 
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The Sound of Silence 

When you read or write to tape or disk, the speaker beeps and 
warbles in conjunction with bytes being sent out or pulled in 
from disk. While this can be a good diagnostic aid (some people 
can hear the difference between reading and writing, and can 
tell right away if there's been a read error), it can get on your 
nerves. Additionally, if you have recorded an audio track to 
play while the program loads, the beeps can get in the way. 
POKE 65,0 disables the sound, although you can barely hear it 
if you turn the volume up. This does not disable the sound 
made by keystrokes, and has no effect on the SOUND com- 
mand. Any nonzero value will reenable the input/output 
sounds. 

Special Atari XL POKEs 

The 1200XL, the new 600XL and 800XL, and the promised 
1450XLD all use the new XL operating system. The new 
operating system represents a considerable increase in power 
and flexibility. What this means is that there are more juicy 
POKEs to try. Remember that none of these POKEs will work 
with the older 400/800 computers, so if you are writing pro- 
grams for publication or sharing, keep this in mind. 

The most astounding POKE enables fine scrolling in 
GRAPHICS 0. Just enter POKE 622,255:GRAPHICS 0. If you 
want a convenient way to watch the scrolling, just enter FOR 
1 = 1 TO 1000:?I:NEXT I. 

Unlike normal scrolling, which moves the screen text up a 
full line at a time, fine scrolling moves the characters pixel by 
pixel. This fine scrolling can adversely affect some programs, 
so to turn it off, enter POKE 622,0:GRAPHICS 0. Of course, 
the scrolling works only with GRAPHICS 0. 

The 1200XL has additional function keys to control key- 
board click, keyboard enable, screen blanking, and the inter- 
national character set. If you own a 600XL or 800XL, you may 
not even be aware of these features. First, try POKE 756,204. 
No immediate changes. Now hold down CTRL and type some 
letters of the alphabet. Instead of the graphics characters, these 
keys now produce all kinds of special foreign language sym- 
bols. Enter POKE 756,224 and the character set will return to 
normal. Now you can write multilingual programs without 
having to redefine the character set. 
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To disable the keyboard, POKE 621,255. Use POKE 621,0 
to reenable it. Don't try this POKE from the keyboard, or you 
won't be able to type the POKE that restores the keyboard. In 
any case, SYSTEM RESET will get you out of this mode. It's 
best to do this POKE under program control. It's useful when 
you don't want the user to type keys that may interfere with 
your program. 

The XL Atari models all have a HELP key. Although not 
used by the operating system or BASIC, you can read this key 
in your own programs, and act on it. Once HELP is pressed, 
location 732 holds a 17. It will continue to hold 17 until you 
POKE 732,0. You should check to see if location 732 holds a 
nonzero value, then POKE 732,0 once you've acted on the 
key. If SHIFT is held down with HELP, 732 will return a value 
of 81. A value of 145 indicates that CTRL is used with HELP. 

Every time you press a key, the internal speaker (on the 
400/800) or the external speaker (XL Ataris) makes a soft blip. 
This positive audio feedback aids in touch-typing, but some 
find it annoying. There's no easy way to disable this beep on 
the 400/800 without cutting the wire to the internal speaker, 
but you can disable it on XL Ataris. Just POKE 731,255. A 
value of allows the keyclick to be heard. You can also 
change the rate at which keys repeat. There are two factors in 
repeating keys. When you press a key, you don't want it to re- 
peat instantly. Instead, the operating system waits for 4/5 sec- 
ond before it starts the repeating. Once the repeating starts, 
the other time factor is how quickly the key is repeated. This 
defaults to about 10 repeats per second (or 1/10-second delay 
between repeats). In the operating system, these time delays 
are expressed in multiples of 1/60 second. A value of 60 is a 
full second, 30 is a half-second, and so on. To change the de- 
lay before the key begins to repeat, POKE 729. Location 730 
specifies the delay between the key repeats. The default values 
for 729 and 730 are 48 and 6 respectively. 

The power offered by the Atari computers continues to 
challenge even the most advanced programmers. The locations 
covered here give a BASIC programmer additional capability, 
but there's much, much more. Read the other articles in this 
book and study the PEEKs and POKEs used in the programs 
for more ideas. If your curiosity is irresistibly piqued, check 
into COMPUTE! Books' Mapping The Atari, a comprehensive 
guide to memory. 

12 
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PEEKing and POKEing 
Around 

Sheila Neece Spencer 



This well-designed program will make it easy for you to 
look into your Atari's memory. You'll also be able to 
change memory, load ML programs, and even convert 
hex, decimal, and binary numbers. 

As I pored over my Atari manuals one day, it occurred to me 
how helpful it would be to look at the contents of memory 
locations in their binary configurations. That would let me see 
which bits were set and which were not. 

One thing led to another, and the result was the program 
given here. Not only does it let you look at memory locations 
in hex, decimal, and binary, but it also lets you POKE ad- 
dresses with binary numbers; convert hex, decimal, and binary 
numbers; and enter and run a machine language program in 
hex or decimal — all without leaving the comfort of this one 
program. 

The contents of any address in memory are made up of 
one byte (eight binary digits). A binary number consists of l's 
and O's only; a 1 indicates that a bit is turned on, while a in- 
dicates that it is turned off. The bits are numbered from to 7 
from right to left. 

Binary is the only language your Atari can actually under- 
stand. When you insert a language cartridge into your machine, 
you are actually providing your Atari with an interpreter 
which allows you to communicate with it (via a language such 
as BASIC) in some meaningful and useful way. 

Nine Options 

Now to the program itself. Type it in, then save a copy before 
you use it. 

When you run the program, you'll get a menu with nine 
options. Option 1 allows you to examine any memory location 
and see its contents in hex, decimal, and binary. 

Option 2 lets you change memory by entering a binary 
number. I chose to use binary here in order to get the feeling 
of actually setting bits in the address. I think "bits and 1 
set" is a little easier to visualize than "POKE x,3". 

Be careful when using option 2. If you POKE the wrong 
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number into the wrong location, you run the risk of crashing 
your system. Then you'll have to turn the computer off and on 
again to regain control. 

Some interesting places to make changes are locations 
53760-53768 (the sound registers), 53266-53274 (the 
player/missile graphics color registers), and 53248-53255 (the 
player/missile graphics position registers). You may see some 
strange things on your screen when you play around with 
these registers, but pressing SYSTEM RESET will generally get 
you out of whatever mess you've gotten into. 

Options 3-8 are conversion routines. Note that if you are 
entering a hex number to be converted, you must always enter 
two digits, even if the first one is a 0. Otherwise, you will get 
an erroneous answer. 

Option 9 lets you put a machine language program into 
memory. You will be asked to choose between hex and deci- 
mal input and to specify a starting address (1536 is usually a 
good starting point for short machine language programs). You 
will then input the instructions one by one. Once again, be 
very careful as you type in the instructions. One wrong digit 
can crash the system. 

When you have entered the last instruction, hit RETURN. 
The program will prompt you to be sure the RETURN was not 
an error by asking "Is that all?" If you reply with N, it will re- 
turn you to the routine and allow you to continue inputting 
instructions. However, Y will prompt the program to ask you 
if you wish to run the program you have just entered. At that 
point, N will return you to the menu. 

Understanding PEEK and POKE 

For error-free program entry, read "The Automatic Proofreader" in this chapter before 
typing in this program. 

CH 5 DIM A* (2) , AD* ( 1 ) , B* (4) , C* (5) ,RESP* ( 1 > , BIN 
* (S) , MODE* (3) , INST* (2),TD(2),N*(8) , TITLE* 
(20) , BYLINE* (12), NAME* (14) 

MC 6 MENU = 600: CLICK=6000: B*="0000" 

DF 7 GOTO 5000 

AN 39 REM DECIMAL TO HEXADEMICAL CONVERSION SU 
BROUTINE 

NN 40 N=PEEK (ADDRESS) :N1=PEEK (ADDRESS) 

BO 60 1=2 

PI 70 TEMP=N:N=INT (N/16) : TEMP=TEMP-N*16: IF TEM 
P<10 THEN A* ( I , I ) =STR* (TEMP) : GOTO 90 
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PF 
PI 



AH 80 
CS 90 
AC 9 1 



ML 95 
AI 100 

FC 1 10 

OP 120 
PB 130 
PE 140 
150 
160 
PK 170 
PH 180 
PN 190 
PH 200 
AA 210 
AD 220 
AE 230 
AH 240 
AJ 250 
AH 260 
PB 270 
PJ 280 
PL 290 
PF 300 
PS 310 
PJ 320 
PL 330 
PO 340 
PD 350 
AB 360 
AK 370 
AN 380 
AO 390 
AI 400 
AK 410 
AN 420 

lk 42i 



A* < I , I ) =CHR 

IF N<>0 THE 

IF M = 3 OR M 

{, } " : B*=" C4 

URN 

IF M>4 THEN 

REM HEXADE 

BROUTINE 

IF A« ( 1 , 1 ) 

="0000" 

IF A* ( 1 

IF A* < 1 

IF A*< 1 

IF A* < 1 

IF A*< 1 

IF A*<1 

IF A*<1 

IF A*< 1 

IF A* < 1 

IF A* < 1 

IF A* ( 1 

IF A*< 1 

IF A* < 1 

IF A* ( 1 

IF At ( 1 

IF A*<2 

IF A«<2 

IF A*(2 

IF A*(2 

IF A*<2 

IF A*<2 

IF A*(2 

IF A*<2 

IF A*(2 

IF A*(2 

IF A*<2 

IF A*(2 

IF A*<2 

IF A*(2 

IF A*<2,2 

IF A*<2,2 

IF M=4 OR 

■" C, >"l B* = 



*<TEMP-10+ASC<"A' 
N I=I-l:BOTD 70 
=8 THEN ? "HEX="; 
SPACES}" : C*=" £5 



) ) 

A* ( I , 2) : A«=" 
SPACES} " : RET 



RETURN 
CIMAL TO BINARY CONVERSION SU 



= " <: 



OR A*(1,1)="0" THEN B* 



T 
T 
T 
T 

T 
T 
T 
T 

T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
M = 7 TH 
"<:4 SP 



1 1 " 

I *"> II 

3" 
i ^ ii 

5" 

6" 

'7" 

8" 

A" 

B" 
C" 

D" 

E" 

' F" 

0" 

, J M 

2" 

3" 

i ^ it 

5" 
6" 
7" 
8" 
9" 
A" 
B" 
C" 
D" 
E" 
F" 
7 



HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

HEN 

EN ? 

ACES 



B* = 
B* = 
B* = 
B* = 
B* = 
B* = 
B* = 
B* = 
B* = 
Bt= 
B$ = 
B* = 
B* = 
B* = 
B* = 
C« = 
C* = 
C* = 
C* = 
C$ = 
C* = 
C* = 
C* = 
C* = 
C* = 
C* = 
C* = 
C* = 
C* = 
C* = 
C* = 
"B 



000 1 " 
0010" 

001 1 " 
0100" 
101" 
0110" 

111" 
1000" 
1001 " 
1010" 
1011" 

1 100" 
110 1" 
1110" 
1111" 

0000" 
0001 " 
0010" 
0011" 
0100" 
0101 " 
0110" 
0111" 
1000" 
1001 " 
1010" 
1011" 
1 100" 
1101" 
1110" 
1111" 
NARY=" 
*=" C5 



; B*; C*: A* 
SPACES}": 



RETURN 
FI 422 ? " {4 SPAC 
" ; N 1 : ? " 

RESS; " ) =" ; 
LB 440 IF M=l OR 

{4 SPACES} 



ES}HEX: " ; A* < I , 2 
BINARY: ";B*;C*: 
PEEK (ADDRESS) 
M=2 THEN A*=" <. , } 
":C*="<:5 SPACES} 



) : ? "DECIMAL: 

? "PEEK(";ADD 

" : B*= " 
" : RETURN 
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AE 450 IF M = 3 THEN ? " HEX = " ; A* ( I , 2 ) : ? :A*=" 

{, >": RETURN 
DL 460 IF M = 4 THEN ? " B I NAR Y = " ; B* ; C* : B* = " 

{4 SPACES} " : C*= " {5 SPACES} ": RETURN 
PH 499 REM BINARY TO DECIMAL CONVERSION SUBROU 

TINE 
AH 500 TRAP MENU: B7=VAL (BIN* ( 1 , 1 )): B6=VAL (BIN* 

<2, 2) ) : B5=VAL (BIN* (3, 3) ) : B4 = VAL ( B I N* < 4 , 

4> ) 
NA 505 IF BIN*="00000000" THEN PKR = 0:GOTO 526 
HC 510 B3=VAL (BIN* (5,5) > : B2=VAL (BIN* (6, 6) ) :B1 = 

VAL(BIN* (7,7)) :B0=VAL (BIN* (8,8) ) 
JO 520 PKR=INT (B7*2~7 + B6*2"6 + B5*2~5 + B4*2"-4 + B3* 

2^3+B2*2~2+Bl *2" 1 +B0*2 "-0 ) +1 
NH 525 IF B7 AND NOT B6 AND NOT B5 AND NOT 

B4 AND NOT B3 AND NOT B2 AND NOT Bi 

AND NOT B0 THEN PKR=PKR-1 
AN 526 IF M = 6 THEN ? " DEC I MAL= " ; PKR : RETURN 
PO 527 IF M = 8 THEN RETURN 
AA 530 POKE ADDRESS, PKR: RETURN 
MA 599 REM MENU 
NL 600 ? " {CLEAR} " : POKE 752 . 1 : POS I T I ON 16,4:? 

" ISSUE" :? 
GB610 ? :? :? "D LOOK AT CONTENTS OF MEMORY": 

? "£ CHANSE CONTENTS OF MEMORY":? "E CO 

NVERT A DECIMAL NUMBER TO HEX" 
DO 615 ? "E CONVERT A DECIMAL NUMBER TO BINARY 

" : ? "E CONVERT A HEX NUMBER TO DECIMAL" 

:? "E CONVERT A BINARY "; 
FE616 ? "NUMBER TO DECIMAL":? "5 CONVERT A HE 

X NUMBER TO BINARY":? "E CONVERT A BINA 

RY NUMBER TO HEX" 
CO 617 ? "E ENTER A SERIES OF POKES":? " IN S 

UCCEEDING MEMORY LOCATIONS" 
PB 620 TRAP MENU: INPUT M:? " {CLEAR} " : ON M GOTO 
1000, 1050, 1 100, 1 100, 1200, 1300, 1400, 150 

0, 1600 
EJ 699 REM HEXADEMICAL TO DECIMAL CONVERSION S 

UBROUTINE 
BC 7 00 FOR Q=l TO 2 

CP701 IF INST* (Q,Q) = "0" THEN TD(Q)=0 
DF 705 IF INST* ( Q , Q ) = " 1 " THEN TD(Q)=1 
DD710 IF INST* (Q, Q) ="?" THEN TD(Q)=2 
DK715 IF INST*(Q,Q)="3" THEN TD(D)=3 
Dl 720 IF INST* (Q, Q) ="4" THEN TD(Q)=4 
DP 7 25 IF INST* (Q, Q) ="5" THEN TD(Q)=5 
DN 730 IF INST* (Q,Q) = "6" THEN TD(Q>=6 
EE 735 IF INST* (Q,Q)="7" THEN TD(Q)=7 
EC 740 IF INST$(B,Q)="8" THEN TD(Q)=8 
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El 

•HF 

m 

HP 
IC 
IF 
II 
LC 

HO 
KK 
GF 



Pft 

OP 



745 
750 
7 55 
756 
757 
758 
759 
760 

770 
999 

1000 



1040 
1049 
1050 



IF 

IF 
IF 
I F 
IF 
IF 
IF 



INST* (Q 
INST* (Q 

INST* <Q 

INST* (Q 



Q ) = " 9 " 

Q ) = " A " 

„ Q > = " B " 

, Q ) = " C " 



INST* (Q, Q) ="D" 
INST* CQ, 
INST* (Q 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



T D >: Q ) = 9 
TD <Q) = 10 
TD (Q) =1 1 

TDiQ)=12 
TD(Q)=13 
TD (Q) =14 
TD (Q) = 15 
M = 



D ) = " E '* 
Q ) = " F " 
NEXT Q: INST=TD ( 1 ) * 16 + TD (2) : IF M=5 THEN 
? "DECIMAL=" ; INST 
RETURN 

REM "1" LOOK AT CONTENTS OF MEMORY 
? : ? : ? "What is the address you want 
to see?": INPUT ADDRESS : GOSUB 40:GOTO 1 
000 

TRAP 40000 

REM "2" CHANGE CONTENTS OF MEMORY 
? :? :? "Please enter the address you 
to poke data into";: INPUT ADDRES 



FM 1060 



EE 1070 



DC 

IL 

CN 
PH 



AP 

m 

AH 
?1 



AJ 

ED 



HA 

LL 



1099 

1 100 

1 199 
1200 



1299 
1300 

1399 
1400 



1499 
1500 



1599 
1600 



W 1 E 

S 

? :? "Now enter the binary con-fig u rati 

on you want in the register (bits are n 

um-<3 SPACES!! bered from 7 to left "; 

? "to right) .": INPUT BIN*: GOSUB 500:? 

: ? "PEEK ("; ADDRESS; ")="; PEEK (ADDRESS) : 

? :? :GOTO 1050 

REM "3" AND "4" CONVERT A DECIMAL # TO 

HEX or CONVERT A DECIMAL # TO BINARY 
? :? :? "Enter the number to convert"; 
:INPUT N:GOSUB 60:GOTO 1100 
REM "5" CONVERT A HEX # TO DECIMAL 
? :? :? "Enter the number to convert ( 
enter 2 d i g i t s > " ; : I NPUT INST*:GOSUB 7 
00: GOTO 1200 

REM "6" CONVERT A BINARY # TO DECIMAL 
? :? :? "Enter the number to convert"; 
: INPUT BIN*:GOSUB 500:GOTO 1300 
REM "7" CONVERT A HEX # TO BINARY 
? :? :? "Enter the number to convert ( 
enter 2 d i g i t s > " ; : I NPUT A*:GOSUB 110: 
GOTO 1400 

REM "8" CONVERT A BINARY # TO HEX 
? :? :? "Enter the number to convert"; 
: INPUT BIN*: GOSUB 500 : N=PKR : GOSUB 60: G 
OTD 1500 

REM "9" ENTER A SERIES OF POKES IN SUC 
CEEDING MEMORY LOCATIONS 

? :? :? "Will you be inputting instruc 
tions in (D)ecimal or < H ) e>: ad ec i mal " ; : 
INPUT MODE* 
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1650 


TRAP 


PD 


1660 


POKE 
HEX 


HE 


1680 


GOTO 


OE 


1700 
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FA 1610 7 :? "What is the starting address (in 
deci-mal, p 1 ease ) " ; : I NPUT ADDRE9S:ADD 
RESS1=ADDRESS 
HL 1620 IF MODE* < 1 . 1 ) = " H " THEN HEX=1 
HI 1625 IF MODE* ( 1 , 1 ) = " D " THEN HEX = 
EH 1630 ? :? "Now enter the instructions, one 

by (4 SPACES! one. " 
CK 1640 IF HEX THEN TRAP 1700: INPUT INST*:GOSU 
B 700:GOTO 1660 

1700: INPUT INST 

ADDRESS, INST: ADDRESS= ADDRESS + 1 : IF 
THEN 1640 
1650 

"Is that all";:INPUT RESP*:IF RES 
P*(l,l)<>" Y" THEN 1640 
00 1720 7 :? "Do you want to run the program y 
ouC4 SPACESJhave just entered";: INPUT 
RESP*: IF RESP* ( 1 , 1 ) =" Y" THEN 1750 
GOTO MENU 

TRAP MENU: X=USR < ADDRESS1 ) 
REM OPENING TITLE 

7 " (CLEAR} " : POKE 752 , 1 : T I TLE*= " FUN WIT 
H PEEK & POKE" : B YL I NE*= " pr esent ed by": 
NAME*="COMPUTE ! BOOKS" 
OK 5370 LN=INT (LEN (TITLE*) /2) :FOR Z = l TO LN:PO 
SITION 17-Z,7:7 "*"; TITLE* (LN-Z+1 , LN+Z 
);"*": GOSUB CLICK 
IP 5400 NEXT Z : LN=INT (LEN (BYLINE*) /2) : FOR Z=l 

TO LN:POSITION 17-Z,9:7 "**"; BYLINE* (L 
N-Z+l , LN+Z ); "tf'z GOSUB CLICK 
EL 5440 NEXT Z : LN= I NT ( LEN ( NAME* ) / 2 ) : FOR Z=l TO 
LN:POSITION 17-Z.ll:? " * * " ; NAME* ( LN- Z 
+1 ,LN+Z) ; "**" :GOSUB CLICK:NEXT Z 
Nil 5500 FOR DLAY=1 TO 500:NEXT DLAY:GOTO MENU 
KI 6000 FOR TICK = TO 3: POKE 53279, 0:NEXT TICK 
: RETURN 



DK 


1740 


IK 


1750 


FF 4999 


CH 


5000 
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Two Fast and Simple 
Joystick Routines 

Stephen Levy 



These routines will make it easy for you to incorporate 
responsive joystick control into your programs. 

You finally feel you know enough Atari BASIC to write your 
own game. You have some great ideas for games which use 
joysticks, and you've seen some joystick routines in other pro- 
grams. But every time you try to duplicate a method, the rou- 
tine seems ridiculously slow. 

Most joystick routines written by beginning programmers 
contain numerous IF-THEN statements. It's those IF-THEN 
statements, as well as the actual placement of the routine, that 
make the joystick response seem unbearably slow. 

Put It Up Front 

Beginners often place joystick routines at high line numbers 
(for instance, 10000) and use statements such as GOSUB 
10000 when the joysticks need to be read. It works, but it 
needlessly slows the joystick routine operation. 

A much better approach is to place the routine at the 
beginning of the program. Joystick routines located near the 
start of any BASIC program will always run faster than the 
same routines placed later in the program. 

The reason for this is simple. In order to carry out a state- 
ment like GOSUB 10000, the computer must start at the 
beginning of the program and check every line number in or- 
der until it finds line 10000. If you place the same routine at 
line 10 instead of 10000, the computer can find your routine 
sooner, without first checking dozens or hundreds of interven- 
ing line numbers. 

The two routines described here are located at low line 
numbers. Thus, the program to which they are appended will 
have little or no effect on the speed at which the routines read 
the sticks. 

Using Arrays 

Program 1 places all the information needed to respond to 
joystick input into two arrays. By placing the information 
in arrays, the program will always have the information in 
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memory before it is needed. That means that the computer 
does not have to figure out what to do each time it reads the 
joystick. 

What has been done is to place a 0, 1, or — 1 into each 
element of the arrays. X = STICK(0) will give X a value based 
on the position of the joystick in the first port. If the joystick is 
in the center position, X will be equal to 15. When the arrays 
were created, the fifteenth element for both row and column 
arrays was given a value of zero (COL(15) = 0; ROW(15) = 0). 
Therefore, when COL(15) is added to the current column po- 
sition, there will be no change — just as there will be no 
change in the row position (line 20). Similarly, if the joystick 
is pushed up, the row will be decreased by one but the col- 
umn will remain the same. Pushing the joystick up will return 
a value of 14 for X. Thus COL(14) = and ROW(14)= -1. 

Here are the values of each array element: 



COL(l) = 





ROW(l) = 





COL(2) = 





ROW(2) = 





COL(3) = 





ROW(3) = 





COL(4) = 





ROW(4) = 





COL(5) = 


1 


ROW(5) = 


1 


COL(6) = 


1 


ROW(6) = 


-1 


COL(7) = 


1 


ROW(7) = 





COL(8) = 





ROW(8) = 





COL(9) = 


-1 


ROW(9) = 


1 


COL(IO) = 


-1 


ROW(IO) = 


-1 


COL(ll) = 


-1 


ROW(ll) = 





COL(12) = 





ROW(12) = 





COL(13) = 





ROW(13) = 


1 


COL(14) = 





ROW(14) = 


-1 


COL(15) = 





ROW(15) = 






To see how it works, take a closer look at the routine. 
Lines 100 and 110 begin the creation of the array by placing 
zeros into elements 1-4, since those numbers are not used for 
joystick reading. Line 120 uses the DATA statements on lines 
140 and 150 to place the proper values into array elements 
5-15. Line 130 sets up the screen and some important values. 

On line 40 and again on line 130 the statement TRAP 40 
appears. TRAP is used here to avoid the need to check bound- 
aries of the screen each time the routine loops through. TRAP 
40 will move the program to line 40 each time an error con- 
dition is reached. When the PLOT command on line 30 tries 

20 



Chapter 1 



to plot to a location which is out-of-bounds, TRAP detects the 
error condition. Without the TRAP the program would stop. 
But in this routine the program will move to line 40 and check 
the values of the column (C) and the row (R) and reset them 
to within the legal limits. 

Once everything is set up, this routine uses only lines 20 
and 30. The routine moves to another line only if you try to 
move the cursor out of bounds. Line 30 erases the old cursor 
by PLOTting in the background color, COLOR 0; then it 
PLOTs the new location with COLOR 1 and saves the location 
in A and B. At the end of line 30 the routine moves back to 
line 20 to read the joystick again. 

GOTO STICK 

Program 2 uses some of the same techniques as Program 1. 
The main difference is that the necessary responses to joystick 
movement are not stored in arrays. Instead, the instructions 
(that is, which way to move the cursor) are placed on the line 
number that is returned by reading the joystick. In other 
words, GOTO STICK(O) will read the joystick and go to the 
line that corresponds to the joystick movement. If the joystick 
is in the center position, the routine goes to line 15 and re- 
peats itself. 

In order for this routine to work properly, the correct line 
numbers must be used. Line 14 will move the cursor up; line 
13 will move the cursor down; line 11 will move it left; line 7 
will move it right; and so on. 

Of course, you are not limited to using lines 5-15. The 
statement could be GOTO STICK(0)*10 and require the use of 
lines 50-150. GOSUB STICK(O) is also an acceptable state- 
ment. Again, the loop requires the use of only three lines if 
you don't move the cursor out of bounds. 

Program 1 . Joystick Reading with Arrays 

For error-free program entry, read "The Automatic Proofreader" in this chapter before 
typing in this program. 

HC 10 GOSUB 100 

0B 20 X=STICK (0) : C = C + COL < X ) : R=R+ROW < X ) : IF X=15 

THEN 20 
DJ 30 COLOR 0:PLOT A,B:COLOR 1 : PLOT C,R:A=C:B= 

R:GOTO 20 
EI 40 TRAP 40: IF C=-l THEN C = 0:BOTO P 
LO 50 IF C = 80 THEN C = 79:GOTO P 

21 



Chapter 1 



JD 60 


NN 70 


NL 


100 


FN 


1 10 


Ofi 


120 



IF R = -l THEN R=0:GDTO P 
IF R=48 THEN R=47:G0T0 P 

DIM ROW < 15) , COL (15) 

FOR X-'l TO 4: ROW ( X ) =0: COL ( X ) =0: NEXT X 

FOR X = 5 TO 15:READ C , R : COL < X ) =C : ROW ( X ) = 

R:NEXT X 
PA 130 GRAPHICS 21 :P = 30: TRAP 40:POKE 712, 132:P 

OKE 709, 122: RETURN 
HM 140 DATA 1,1,1,-1,1,0,0,0,-1.1 
IN 150 DATA -1,-1.-1,0,0,0,0,1,0,-1,0,0 



Program 2. Joystick Reading with GOTO 

NC 2 GOTO 70 

10 5 C = C+1 : R = R+1 : GOTO P 

JB 6 C = C+1 : R = R-1 : GOTO P 

BJ 7 C = C«-l:GOTO P 

JE 9 C = C-1 : R = R+1 : GOTO P 

L0 10 C = C-1 : R = R-1 : GOTO P 

EG 1 1 C = C-1 : GOTO P 

BE 13 R = R+1 : GOTO P 

GH 14 R = R-1 : GOTO P 

JO 15 GOTO STICK (0) 

DM20 COLOR 0:PLOT A,B:COLOR 1 : PLOT C,R:A = C:B = 

R:GOTO 15 
JA 30 TRAP 30: IF C = 80 THEN C = 79:GOTO P 
HD 40 IF C = -l THEN C = 0:GOTO P 
NL 50 IF R = 48 THEN R = 47:G0T0 P 
JD 60 IF R = -l THEN R = 0:GOTO P 
FE 70 P = 20: GRAPHICS 21-.POKE 712,116:P0KE 709,1 

6:TRAP 30:GOTO 15 
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Three Music Editors for 
Your Atari 



David Florance 



Atari's SOUND statement lets you create a multitude of 
sounds. And sound editors like the ones presented here 
make the job easy. You'll be amazed at just what your 
Atari can play. 

Atari BASIC, unlike many other BASICs, includes a statement 
to create sound. It's possible to create music with one to four 
voices — the statement is even easy to use. Its syntax is: 

SOUND voice ,pitch, distortion, volume 

where voice is a number from to 3, pitch from to 255, 
distortion from to 15 (10 is a pure tone, 8 is noise), and vol- 
ume from to 15. If you're using more than one voice at a 
time, the sum of the volumes should not exceed 16. 

With just that short introduction, let's jump right into 
creating our music masterpieces. 

An Envelope 

Some critics of Atari sound generation claim it's not com- 
parable to a sound synthesizer. However, when you look 
closer at the inner workings of Atari sound, you'll quickly find 
that it's much more powerful and flexible than first imagined. 

The first sample program, "Envelope," shows some of the 
sound possibilities of the Atari. When the program is run, 
you're asked to supply the envelope parameters. Experiment 
with different values, but be sure to stay within the stated lim- 
its. The figure shows a typical attack/decay/sustain/release 
(ADSR) envelope. 

The attack value controls how fast a sound rises from si- 
lence to maximum volume. Decay is the rate at which it de- 
clines from the maximum to its sustained volume. Sustain 
indicates how long the sound will be held, and release con- 
trols how quickly it fades into silence. 

The technique used in Envelope is simple. By using FOR- 
NEXT loops we can control the envelope of a sound. Since the 
Atari's BASIC loop timing will change depending on program 
length, this technique is not perfect. For our purposes, how- 
ever, it works well enough to simulate the ADSR control of a 
true sound synthesizer. 

23 



Chapter 1 



Typical ADSR Envelope 




Sustain _► 




Melodies 

Program 2, "Melodies," assists in composing melodies. Pro- 
gram 3, "Player 1," plays the songs you create with Program 
2. Be sure to enter and save both Programs 2 and 3 before 
using the former. 

These two programs let you create melodies of up to 48 
notes in length (it's possible to enter more than 48 notes, but 
the DATA will scroll off the screen). For each note, enter a 
pitch value from those displayed on the screen, and a duration 
value (0 to 255). The Atari then plays the note, though not 
with the specified duration. When all the notes are entered, 
type for the pitch. You'll now hear the composition. If you 
don't like it, you can easily edit the note(s). 

After your melody is finished, the program lets you save 
the song data if desired. If you press Y when prompted, the 
Atari prints your note values on the screen, in numbered 
DATA lines. At this point you can either write the values 
down, or enter NEW and load Program 3. If you do the latter, 
be careful not to disturb the DATA lines, which will be added 
to Program 3. When the Atari has finished loading, cursor up 
and press RETURN at each numbered line. The song data is 
now part of the program. Run the program to replay the song, 
or save it (with a new name) to preserve your song for 
posterity. 
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Table 1 . Pitch Values 



c 


243 


121 


60 


F# 


173 


85 


42 


c# 


230 


114 


57 


G 


162 


81 


40 


D 


217 


108 


33 


G# 


153 


76 


37 


D# 


204 


102 


30 


A 


144 


72 


35 


E 


193 


96 


47 


A# 


136 


68 


33 


F 


182 


91 


43 


B 


128 


64 


31 



Note: Any number from to 255 is an acceptable pitch 
value. 

Creating Chords 

Creating chords is very similar to creating notes. Type in and 
save Program 4, "Chords," and Program 5, "Player 3." These 
programs let you control three voices instead of one. Just as 
before, you enter pitch and duration values for each note. 
Durations, however, do not have the same values as before. 
The chord editor uses eight duration values (see Table 2). The 
first note will be assigned to voice 1, the second to voice 2, 
and so on. The Atari will play each note when you enter it, 
but without the specified duration. 

When all the notes are entered, enter a pitch of to re- 
play the chord(s). Next, you can save the chord data as a file. 
You'll need to specify the device and filename for disk (no 
quote marks are needed). 

To play your chords or preserve the data, run Program 5, 
Player 3. You'll be prompted for the filename of your chord(s). 
Type in the filename, and when the READY prompt appears, 
delete lines 1-4, which append the data to the player program, 
and enter RUN again. There are your chords, just as you en- 
tered them, again ready to be saved as a separate program. 

Table 2. Duration Values 



1= 


= quarter note 


(1 beat) 


2 = 


= half note 


(2 beats) 


3= 


= dotted half note 


(3 beats) 


4 = 


= whole note 


(4 beats) 


5= 


= quarter & whole 


(5 beats) 


6 = 


= half & whole 


(6 beats) 


7 = 


= dotted half & whole 


(7 beats) 


8- 


= two whole notes 


(8 beats) 
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All Four Voices 

The chord editor used only three voices. "Song Editor" and 
"Player 4" allow you to write songs using any combination of 
one, two, three, or four voices. Now you can write complex 
songs, controlling the pitch and duration of each note, and 
inserting rests wherever desired. 

The program will prompt you to enter the number of the 
voice you want to use, then the pitch and duration values for 
each note. To switch voices, type in 1 for the pitch. Enter a 
pitch of for rests, and a pitch of 2 to hear your work. When 
finished, the song you've composed is written to disk or cas- 
sette, and can be heard by using the Player 4 program. Use 
the same procedure as you did with Player 3. Try adding a 
new line to Player 4, 9999 RUN, for continuous music. 

Program 1. Envelope 

For error-free program entry, read "The Automatic Proofreader" in this chapter before 
typing in this program. 

m i DIM A* ( 50 > , P ( 1 ) . P* ( 1 ) , R$ ( 1 ) , CH < 1 ) . ER 

* ( 38 ) : X=20 : Y= 1 : ERS = " C 1 9 SPACES J " 
fti. 20 CH!1)=3:CH!2) =255 : CH • 3 > = 1 4 : CH < 4 }= 1 5 : CH < 5 
>=32767:CH<6)=14:CH(7)=CH(4):CH(3)=CH<4) 
: CH (9) =CH (2) : CH ( 1 0) = 1 
Hi 30 FOR T=l TO 1 : P ( T } =0 : WE X T T 
l!« 50 PRINT CHRS0 25) 

LL 55 POKE 709,0: POKE 7 10. 14: POKE 7 12,14 
ID 100 REM MAINPRG 
KO 1 1 FOR N=l TO 10:READ A*:PRINT A$:PRINT :N 

EXT N 
EA 120 FOR T=l TO 1 

CL 130 POSITION X,Y: INPUT P*:TRAP 600 
HG 135 P = VfiL(Ft) :P(T) = IMT!P) 
JH 137 IF P(T)>CH(T) OR P<T)<0 OR ASC<P*)<48 A 

ND ASC(P*>>57 THEN POSITION X,Y: PRINT E 

R*:GOTO 130 
KO140 Y = Y + 2:NEXT T 
DA 190 IF P(6)>0 THEN 300 
ON 200 SOUND P ( 1 ) , P ( 2 ) , P ( 3 ) , P ( 4 ) 

G3 210 IF P(10)=l THEN ON P < 1 ) 4- 1 GOSUB 220.230 
GJ 215 GOTO 2 60 

SH 22 POKE 53768, 1 32: RETURN 
HO 230 POKE 53768 , 34 : RETURN 
LP 260 FOR Y=l TO P(5) 
CJ269 NEXT Y 

EP 270 SOUND P ( 1 ) , P ( 2 ) , P < 3 ) ,0 
LE 2 8 GOSUB 5 : G O T O 200 
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EK 300 REM SUBPRG 

HP 305 IF P(6.)=0 THEN P ( 6 ) = 1 

FQ310 FOR Y=l TO 15 STEP P(6) 

HE 320 SOUND P ( 1 ) , P ( 2 ) , P < 3 ) , V 

CD 330 NEXT Y 

IE 332 SOUND P ( 1 ) , P ( 2 ) , P < 3 ) , 1 5 

IK 335 FOR T=l TO PCS): NEXT T 

KD 340 FOR T=15 TO P(8) STEP -1: SOUND P '. 1 > , P ( 2 
),P(3),T:F0R F=l TO P<7):NEXT F 

CP 345 NEXT T 

AD 350 FOR T = P(S) TO STEP -1: SOUND P(1),P(2) 
,P(3),T:F0R D=15 TO P(9> STEP -IsNEXT D 
:NEXT T: SOUND P < 1 ) , P < 2 ) , P ( 3 ) , 

KP 4 00 GOSUB 500:GOTO 300 

FL 500 REM PROMPT 

NC 505 PRINT " AGAIN (Y/N) ";: TRAP 40000: INPUT R* 

BC 507 IF R$=CHR*(89) THEN POSITION 2,21:PRINT 
ER$: POSITION 2,21:RETURN 

DM510 PRINT "MORE (Y/N) ";: INPUT R* 

IA 520 IF R*=CHR*(89) THEN CLR : GOTO 10 

GP 530 END 

IH 600 IF P$ = CHR$(155) THEN 140 

GF610 GOTO 140 

16 1000 DATA VOICE (0-3) , PITCH (0-255) , DI3T0RTI0 
N (0-1 4 )_, VOLUME (0-15) 

AD 1010 DATA DURATION (0-32767) , ATTACK (0-14) , DE 
CAY (0-15) , SUSTAIN (0-15) .RELEASE (0-15) , 
FILTER (0 = OFF/1 = ON) 



Program 2. Melodies 



NP 10 C0UNTER=1535: POKE 709 , 1 32 : POKE 712,132:P 

OKE 710, 132 
HH15 DIM A(12),B(12) ,C(12) ,D(7),R(10),P$(10), 
ER* (20) , G* ( 10) 
ER*="<:i8 SPACES3 " 

REM OCTAVE 1 

RESTORE 1 1500 

FOR X=l TO 12:READ A : A ( X ) = A : NE X T X 

REM OCTAVE 2 

RESTORE 11510 

FOR X=l TO 12:READ B : B ( X ) =B : NEXT X 

REM OCTAVE 3 

RESTORE 11520 

FOR X = l TO 12-.READ C : C ( X ) =C : NE X T X 

REM NOTE NAMES 

RESTORE 1 1530 

FOR X=l TO 7:READ D : D ( X ) =D : NE X T X 
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JO 


20 


61 


100 


LB 


105 


EP 


110 


SK 


200 


LD 


205 


FD 


210 


GN 


300 


LF 305 


FH 


310 


CC 400 


LH 4 05 


CP 


410 
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CD 


510 


LL 


512 


CI 


515 


DE 


517 


Jtl 


520 


BP 


530 


at 


532 


FN 


533 


CK 


535 


DG 


537 


BP 


540 


DB 550 


KE 


560 


CL 600 


KH 610 



AN 500 PRINT CHR*(125> ^ 

FOR X=l TO 7:PRINT CHR*(D(X>) 

IF X=3 THEN 517 

PRINT 

NEXT X *^ 

POSITION 2,2 

FOR X=l TO 7 

IF X=3 OR X=7 THEN 535 ^ 

PRINT CHR* <D (X ) > ; CHR* (35) 

PRINT 

NEXT X 

Y=l:FOR X=l TO 12:P0SITI0N V,Y:PRINT A( 

X) , B (X ) , C (X > : Y=Y+1 

NEXT X 

PRINT :FOR X=l TO 29:PRINT CHR* ( 20 ) ; : NE 

XT X 

POKE 709, 190 

TRAP 610:POSITION 2,16:PRINT ER*:POSITI 

ON 2,16:PRINT "PITCH " ; : INPUT P 
KN615 IF P = THEN GDSUB 3000:GOSUB 5000: GOTO 

10 
HK617 IF P<0 OR P>255 THEN 610 
IL 620 TRAP 620:POSITION 2,16:PRINT ER*:POSITI 

ON 2,16:PRINT "DURATION ";: INPUT D 
BC 625 IF D<0 OR D>255 THEN 620 
BB 1000 SOUND 1,P,10,15 
HB 1010 FOR X = l TO 300:NEXT X 
OC 1020 SOUND 1,P,10,0 
BJ 1025 IF E=l THEN RETURN 
AB 1030 GOSUB 2000 
JF 1040 GOTO 610 
IN 2000 POKE COUNTER, P 

FL2010 POKE COUNTER+128, D: COUNTER = COUNTER+ 1 
KE 2020 RETURN 

CO 3000 FOR X = 1535 TO COUNTER-1 
JH3010 SOUND 1, PEEK<X) , 10, 15 

HC 3020 FOR T=l TO PEEK (X + 12B) : NEXT T ■■">- 

DE 3030 NEXT X : SOUND 1 , PEEK ( X ) , 1 , 
BI 3040 IF E=l THEN RETURN 

DM5000 PRINT CHR* (125) ^ 

PL 5010 PRINT "DO YOU LIKE THE SONG < Y/N ) " ; : I NP 

UT G* 
BA 5020 IF G*="Y" THEN GOSUB 6000 

AM 5025 IF G*="N" THEN GOSUB 8000 — ^ 

DM5030 PRINT "MORE ";: INPUT G* 
BI 5035 IF G*="Y" THEN GOSUB 8000 
AN 5040 GOSUB 3000 
NB 6000 PRINT "WOULD YOU LIKE THE DATA ( Y/N >"; : 

INPUT G* 
JF6010 IF G*="Y" THEN 6500 
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(IK 6015 SOTO 5000 

U 6020 PRINT :PRINT LN+10; " DATA 256":END 

LC 6500 PRINT CHR* ( 125) : LN=10000: SC=10 

HI 6502 PRINT LN;" DATA " ; 

DL 6505 FOR X=1535 TO COUNTER-1 

HO 6510 PRINT PEEK<X) ; " , " ; PEEK <X+128) ; 

FH6515 IF COUNTER-1 >1535 + SC AND XM535 + SC THE 

N GOSUB 7000:GOTO 6550 
GO 6520 IF X = COUNTER-l THEN 6550 
AS 6530 PRINT " , " ; 
KC 6550 NEXT X : GOTO 6020 
NC 7000 LN = LN+10; PRINT :PRINT :PRINT LN;" DATA 

" ; : SC=SC+12: RETURN 
DE 8000 PRINT CHR* < 125) :FOR X=1535 TO COUNTER- 

1 
QL8010 PRINT "NOTE # " ; X- 1 534 ; " " ; PEEK < X ) ; " 

t3 SPACESJDURATION #";X-1534;" " ; PEEK < 

X+12B) 
GB 8020 NEXT X 
EC 8030 PRINT :PRINT :PRINT "PRESS LT TO HEAR S 

ONG AGAIN ";: INPUT G* 
IE 8040 IF G*="A" THEN 8050 
LB 8045 RETURN 
PN 8050 E=l: GOSUB 3000 

KJ 8060 PRINT "WHICH NOTE TO EDIT";: INPUT NE 
BE 8070 E=l:GOSUB 400:E = 0:POKE 1 535+NE- 1 , P : POK 

E 1535+NE-1+128, D 
LA 8080 RETURN 
CG 11500 DATA 243.230,217,204,193.182,173,162, 

153, 144, 136, 128 
KJ 11510 DATA 121,114,108,102,96,91,85,81,76.7 

2, 68, 64 
GH 11520 DATA 60,57,53,50,47,45,42,40,37,35,33 

,31,29 
AH 11530 DATA 67,68,69,70,71,65,66 



Program 3. Player 1 



HC 10 DIM A ( 128) , B < 128) : PRINT CHR* < 1 25 ) : POKE 7 

09,192:POKE 710,45:POKE 712,45 
CH 20 X = 
KH 30 X = X + 1 

JO 40 READ A: IF A = 256 THEN GOTO 100 
AH 45 A(X)=A:READ B:B(X)=B 
AB 50 GOTO 30 
IN 100 FOR N=l TO X-l 
EG 110 SOUND 1,A<N),10,5 

HD 120 FOR DELAY=1 TO B(N):NEXT DELAY 
CB 130 NEXT N 
KI 10000 DATA 256 
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:POKE 712, 


85: 


POKE 


709, 


132 


112: 


SOP ( X ) 


= 0: 


A L T < X ) = : 


TEN ( X 


1 
500 












12: 


READ A 


: A ( X ) =A 


: NEXT 


X 



Program 4. Chords 

JC 1 5 DIM A(112),B(112),C(112),D(112),R(120),P 

* ( 10) , ERt (20) , G* (20) , FN* (12) 
AD 17 DIM SOP ( 1 12) , ALT ( 1 12 > , TEN < 1 12) 
Dl 20 ER$="{18 SPACES} ": NU = 
CK 30 POKE 7 10, S: 
PC 40 FOR X=l TO 


GI 100 REM OCTAVE 
LB 105 RESTORE 1 1 '. 
EP 1 10 FOR X= 1 TO 
GK 200 REM OCTAVE 2 
LD 205 RESTORE 11510 

FD210 FOR X=l TO 12:READ B : B ( X ) =B : NE X T X 
GN 300 REM OCTAVE 3 
LF 305 RESTORE 11520 

FH310 FOR X=l TO 12-.READ C : C ( X ) =C : NE X T X 
CC 400 REM NOTE NAMES 
LH 405 RESTORE 11530 

CP410 FOR X=l TO 7:READ D : D ( X ) =D : NE X T X 
AH 500 PRINT CHR*(125) 

CD510 FOR X=l TO 7:PRINT CHR*<D(X>) 
LL512 IF X = 3 THEN 517 
CI 515 PRINT 
DE 517 NEXT X 
JH 520 POSITION 2,2 
BP 530 FOR X=l TO 7 
CK 532 IF X = 3 OR X = 7 THEN 535 
FH 533 PRINT CHR* ( D ( X ) ) ; CHR* ( 35 ) 
CK 535 PRINT 
DG 537 NEXT X 
BP 540 Y=l:FOR X=l TO 12:P0SITI0N 9,Y:PRINT A( 

X),B(X),C(X): Y=Y+1 
DB 550 NEXT X 
KE 560 PRINT : FOR X=l TO 29:PRINT CHR$(20);:NE 

XT X 
DB 570 POKE 709,190 
LN 600 FOR V=l TO 3:P0SITI0N 2,22:PRINT "VOICE 

#" ; V 
JP610 POSITION 2,16:PRINT ER*:POSITION 2,16:P 

RINT "PITCH ";: INPUT P 
JC615 IF P = THEN GOSUB 3000: GOTO 5000 
HK617 IF P<0 OR P>255 THEN 6 10 
1C 620 POSITION 2,16:PRINT ERt:POSITION 2,16:P 

RINT "DURATION ";: INPUT D 
PP 625 IF D< 1 OR D>8 THEN 620 
BG 1000 SOUND 1,P, 10,15 
H6 1010 FOR X=l TO 300:NEXT X 
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5000 PRINT CHR$(125) :GOSUB 9000:END 

6000 FOR 1=1 TO D 

6010 G=G+1 : ALT <G) =P: NEXT 

6020 RETURN 



6020 RETURN 
7000 FOR 1=1 TO D 
7010 F = F+1 : TEN (F) =P: NEXT I 
7020 RETURN 

9000 PRINT "WOULD YOU LIKE THE DATA ( Y /N ) " ; : 
INPUT 6* 



9010 IF G*="Y" THEN 9015 
9012 END 

9015 PRINT "REMEMBER TO DE 
R. 'D:' FOR DISK)":PR 



UfcSIGNATE DEVICE(E. 
FOR DISK)":PRINT "AS PART OF Y 



\3 . u • run u l dp^ j : r n i in i mc* rnr\i u r t 

OUR FILENAME. " 
9017 PRINT "FILENAME" ;: INPUT FN*:GOTO 9500 
9020 PRINT #1 ; CHR* ( 155) ; LN+10; " DATA 256,25 

6, 256" : END 

OE^./asX DOT KIT fUD* / -I **> ^ \ . I hi — i fA CA (A fA - €2 1^- — O 



LN=10000: SC=8 




ou i u 9550 
9520 IF X=NU THEN 
9530 PRINT 4*1 ; " " 



i " , " ; TEN < X ) ; 
GOSUB 9600: 



9550 




CG 
KJ 

GH 
AH 



.530 DATA 67.68,69,7 
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Program 5. Player 3 

IF 1 DIM FN* ( 12) : PRINT CHR* < 1 25) ! POKE 709,190: 

POKE 7 12, 130: POKE 7 10,180 
CP 2 PRINT "REMEMBER TO DESIGNATE DEVICE (E.G. 
'Ds" FOR DISK" SPRINT "WHEN ENTERING FILE 

NAME. " 
AC 3 PRINT "FILENAME" ;: INPUT FN* 
6K 4 ENTER FN* 

BN 10 DIM A ( 128) , B ( 128) , C ( 128) 
CH 20 X = 
KM 30 X = X + 1 

HL 40 READ A,B,C: IF A = 256 THEN GOTO 100 
BL45 A(X)=A:B(X)=B:C(X)=C 
AB 50 GOTO 30 
IN 100 FOR N=l TO X-l 
CF 1 1 SOUND 0, A (N) , 10, 5: SOUND 1 , B ( N ) , 1 , 5 : SOU 

ND 2, C (N) , 10, 5 
HB 120 FOR DELAY=1 TO 100-.NEXT DELAY 
CB 130 NEXT N 



Program 6. Song Editor 



CF10 DIM AU2),B(12),C(12),D(7),R(10),P*(10), 
ER* (40) , FN* (14) 

POKE 710,23:POKE 712,23:P0KE 709,23 
ER*="<35 SPACES}" 

DIM SOP (128) , ALT ( 128) , TEN ( 128) , BAS ( 128) 
DIM COUNTER (128) , G (4) , W < 100) , VL < 128) , FL ( 
128) , I ( 128) , R* ( 128) 

C0=0: C1=0: C2=0: C3=0: LN= 10000: SC= 1 2 
COUNTER=0 
FOR 1=0 TO 128 

SOP (I)=0:ALT(I)=0:TEN(I)=0: BAS ( I ) =0 
VL ( I ) =0 
NEXT I 

REM OCTAVE 1 

RESTORE 11500 

FOR X=l TO 12:READ A : A ( X ) = A : NEXT X 

REM OCTAVE 2 

RESTORE 11510 

FOR X=l TO 12:READ B : B ( X ) =B : NEXT X 

REM OCTAVE 3 

RESTORE 11520 

FOR X=l TO 12:READ C: C (X ) =C: NEXT X 

REM NOTE NAMES 

RESTORE 11530 

FOR X=l TO 7:READ D: D ( X ) =D: NEXT X 

PRINT CHR*(125) 
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OB 


15 


JO 


20 


AB 


30 


PK 


40 


AP 45 


PI 


47 


EA 


50 


HB 


52 


BB 


53 


PC 


55 


GI 


100 


LB 


105 


EP 


1 10 


GK 


200 


LD 


205 


FD 


210 


GH 


300 


LF 


305 


FH 


310 


CC 400 


LH 405 


CP 4 10 


AH 500 



Chapter 1 



CD510 FDR X=l TO 7:PRINT CHR*<D<X)> 

LL512 IF X=3 THEN 517 

CI 515 PRINT 

DE517 NEXT X 

JH 520 POSITION 2,2 

BP 530 FOR X=l TO 7 

C* 532 IF X = 3 OR X = 7 THEN 535 

FH 533 PRINT CHR* < D < X > > ; CHR* < 35 > 

CK 535 PRINT 

DB 537 NEXT X 

BP 540 Y=l:FOR X = l TO 12:POSITION 9,Y:PRINT A< 

X) ,B <X> , C < X ) : Y = Y+1 
DB 550 NEXT X 

EA 555 IF Fl=l THEN F1=0:RETURN 
KE 560 PRINT : FOR X = l TO 29-.PRINT CHR* < 20 ) ; : NE 

XT X 
DB 570 POKE 709,190 
KJ 600 TRAP 600:POSITION 2,16:PRINT ER$:PDSITI 

ON 2,16:PRINT "VOICE"; :INPUT V 
BJ 605 IF V<0 OR V>3 THEN 600 
OE 607 POSITION 2,20:PRINT "VOICE " ; V 
SD 60S X = 
KH610 TRAP 610:POSITION 2,16:PRINT ER*:POSITI 

ON 2,16:PRINT "PITCH "; : INPUT P 
HI 615 IF P<0 OR P>255 THEN 610 
DF617 IF P=l THEN X = 1 : G < V ) =COUNTER : COUNTER = : 

GOTO 600 



0C61S IF P = 2 THEN 6000 

1L 620 TRAP 620:POSITION 2,16:PRINT ER*:POSITI 
ON 2,16:PRINT " DUR AT I ON " ; : I NPUT D 

IF D< 1 OR D>8 THEN 620 

ON V+l GOSUB 1000.2000,3000,4000 

GOTO 610 

00 GOSUB 5000 

10 FOR Y=l TO D 

20 SOP <X ) =P: X=X+1 : NEXT Y:RETURN 

00 GOSUB 5000 

10 FOR Y=l TO D 

20 ALT < X ) = P: X = X +1 : NEXT Y:RETURN 

00 GOSUB 5000 

10 FOR Y=l TO D 

30 TEN (X ) =P: X=X+1 : NEXT Y:RETURN 

00 GOSUB 5000 

10 FOR Y=l TO D 

30 BAS < X ) =P: X=X+1 : NEXT Y:RETURN 

00 SOUND V,P,10,8:FOR T=l TO 200:NEXT T:S 
OUND V,0, 10, 0: COUNTER=COUNTER+D: RETURN 

00 GOSUB 7000 

TRAP 40000: GOSUB 8000: GOSUB 8900: GOSUB 
8800 
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63 
64 
65 
10 
10 
10 
10 
10 
10 
50 
FJ 30 
FC 30 
M 40 
FK 4 
EC 40 
JE 50 

AN 60 
IL 60 



PL 

PH 
GL 
AG 
FH 
FK 
AH 
FI 
EK 
AI 
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CO 
CI 
BJ 
CB 
BG 
EI 
FH 
LF 



6005 
6010 
6020 
6030 
6040 
6050 
6060 
6070 



NB 6090 
PC 7000 
CD 7010 
CI 7020 
CN 7030 
CM 7040 
CH 7050 
PD 7060 
KO 7070 
HJ 8000 
DH 80 10 
EP 8020 

EJ 8030 

FE 8040 
CO 8050 
PM 8055 
OP 8057 
PJ 8059 
OD 8061 
FD 8065 
HP 8067 

AL 8069 
LB 8077 
HE 8100 

m 8200 

HI 8300 
WK 8400 
BK 8800 

KK 8810 
OE 8820 

LC 8830 
US 8840 
LB 8900 

HA 8905 



FOR L=0 
SOUND 
SOUND 1 
SOUND 2 
SOUND 3 
FOR T=l 
NEXT L 
SOUND 
0,0:SOUND 3, 
GOTO 9000 
REM TEST FOR 



TO COUNTER 
SOP <L) , 10, 4 
ALT (L) , 10,4 
TEN (L) ,10,4 
BAS (L) , 14,4 
TO 13: NEXT " 



0, 0. 



SOUND 
0, 



1 , 0, 0, 0: SOUND 2,0, 



IF 
IF 
IF 
IF 

IF 



G (0) >G ( 1 ) 
G ( 1 ) >G<2) 
G(2) >G(3) 
G(3) >G ( 1 ) 
>G ( 1 ) 



COUNTE 

THEN G 

THEN 

THEN 

THEN 

THEN 



G (0) 
COUNTER=G< 1 ) 
RETURN 

PRINT CHR$ < 125) : FL=1 
FOR 1=0 TO 3 
PRINT "WOULD YOU LI 
I ; "<Y/N>" ; : INPUT R* 
IF R*="Y" THEN ON I 
8300, 8400 
NEXT I 

FOR 1=1 TO COUNTER 
IF C0=1 THEN SOUND 
IF Cl=l THEN SOUND 
IF C2=l THEN SOUND 
IF C3=l THEN SOUND 
FOR T=l TO 25:NEXT 
NEXT I : SOUND 0,0,0, 
ND 2, 0, 0, 0: SOUND 3, 

-& 



R 

( 1 ) =G (0) 
(2)=G( 1 ) 
<3) =G<2) 
( 1 )=G <3> 
< 1 ) =G (0) 



KE TO HEAR VOICE " ; 
+1 GOSUB 8100,8200, 



0, SOP ( I ) , 10, 10 
1 , ALT (I ) , 10, 10 

2, TEN( I ) , 10, 10 

3, BAS ( I ) , 10, 10 

T 

0: SOUND 1,0, 0,0: SOU 

0,0,0 



C0=0:C1=0: C2=0: C 

RETURN 

C0=1 : RETURN 

Cl=l : RETURN 

C2=l : RETURN 

C3=l : RETURN 

PRINT "READY TO HEAR IT ALL < Y / N > " ; : I NP 

UT R$ 

IF R*="Y" THEN 6005 

PRINT "WOULD YOU LIKE TO ED I T< Y/N > " ; : I 

NPUT R* 

IF R$="Y" THEN 9800 

GOTO 9000 

PRINT "ANOTHER COMB I NAT I ON< Y / N > " ; : I NPU 

T R* 

IF R*="Y" THEN GOSUB 8000: GOTO 8900 
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LP 8910 IF RS="N" THEN 
AJ 9000 PRINT CHR*(125) 

OULD YOU LIKE T 
KJ 9002 IF R*="Y" THEN 
NJ 9005 SOTO 8820 
OH 9015 PRINT CHR$(125> 

IGNATE DEVICE(e 
OB9017 PRINT "FILENAME 
NH 9020 PRINT #1;CHR$(1 

6, 256, 256" : END 
IH 9500 PRINT CHR$(125) 
PJ9501 OPEN #1,8,0, FN* 
FK 9 502 PRINT #1;LN;" D 
ED 9505 FOR X = l TO COUN 
BH9510 PRINT #l;SOP(X) 

" , " ; BAS ( X ) ; 
NC95 15 IF COUNTER >1+SC 

9600: GOTO 9550 
BG 9520 IF X = COUNTER TH 
JI 9530 PRINT #1 ; " , " ; 
KI 9550 NEXT X : GOTO 902 
EN 9600 LN = LN+10: PRINT 

N; " DATA " ; : SC= 
EI 9800 PRINT CHR$<125> 
GP 9805 POSITION 2, 18-.P 

IT" ; : INPUT EV 
CH9810 PRINT CHR$(125) 

, 9860, 9880 
EC 9820 FOR X = TO COUN 
OH 9822 PRINT "NOTE #"; 
HC 9824 IF X>20 THEN PO 
HJ 9826 IF X>40 THEN PO 
HC 9828 NEXT X 



RETURN 

:POSITION 2,16:PRINT " W 

SAVE<Y/N>" ;: INPUT R$ 

9015 

:PRINT "REMEMBER TO DES 
. g . ' D : F I L E ' ) " 
";: INPUT FN*: GOTO 9500 
55);LN+10;" DATA 256,25 

: LN= 1 0000: SC=8 

ATA 
TER 
; " , " ; ALT ( X ) ; " , " ; TEN ( X ) ; 

AND X>1+SC THEN GOSUB 

EN 9550 



#1;: PRINT #1: PRINT #1;L 

SC+12: RETURN 

PINT "WHICH VOICE TO ED 

:ON EV+1 GOTO 9820,9840 

TER 

X ; " " ; SOP ( X ) 
SITION 12,1 
SITION 24 , 1 



LP 9830 

KD 9832 
SK 9834 

HP 9836 



LH 9837 
NL 9838 
EE 9840 
HI 9842 
HE 9844 
ML 9846 
HE 9 84 8 



FOR X=l TO COUNTER: SOUND O , SOP ( X ) , 1 , 4 

: FOR T=l TO 100:NEXT T:NEXT X 

SOUND 0,0,0,0 

TRAP 9834:PRINT "WHICH NOTE TO EDIT";: 

INPUT EN: Fl=l : GOSUB 500 

POSITION 2,18:PRINT "NEW NOTE #";EN;:I 

NPUT NN: SOP (EN) =NN: PRINT " MORE " ; : I NPUT 

R* 
IF R*="Y" THEN 9820 
GOTO 6000 

FOR X=0 TO COUNTER 
PRINT "NOTE #";X;" ";ALT(X) 
IF X>20 THEN POSITION 12,1 
IF X>40 THEN POSITION 24,1 
NEXT X 
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JC 9850 FOR X=l TO COUNTER: SDUND 1 , ALT ( X ) , 1 , 4 

:FOR T=l TO 100:NEXT T:NEXT X 
KG 9852 SOUND 1,0,0,0 
GO 7854 TRAP 9854.-PRINT "WHICH NOTE TO EDIT";: 

INPUT EN: Fl=l : GOSUB 500 
GG 9856 POSITION 2,18:PRINT "NEW NOTE #";EN;:I 

NPUT NN: ALT (EN) =NN: PRINT " MORE " ; : I NPUT 
R* 
Hfi 9857 IF R*="Y" THEN 9840 
NN 9858 GOTO 6000 
EG 9860 FOR X=0 TO COUNTER 
OA 9862 PRINT "NOTE #";X;" ";TEN(X) 
MG 9864 IF X 5 20 THEN POSITION 12,1 
UN 9866 IF X>40 THEN POSITION 24,1 
HG 9868 NEXT X 
JL 9870 FOR X = l TO COUNTER : SOUN D 2 , TEN ( X ) , 1 , 4 

: FOR T=l TO 100:NEXT T:NEXT X 
KJ 9872 SOUND 2,0,0,0 
HC 9874 TRAP 9874-.PRINT "WHICH NOTE TO EDIT";: 

INPUT EN: Fl=l : GOSUB 500 
GO 9876 POSITION 2,18:PRINT "NEW NOTE tt";EN; : I 

NPUT NN: TEN (EN) =NN: PRINT "MORE" ;: INPUT 
Rt 
HE 9877 IF R*="Y" THEN 9860 
NP 9878 GOTO 6000 
EI 9880 FOR X=0 TO COUNTER 
NB 9882 PRINT "NOTE #";X;" " ; BAS ( X ) 
MI 9884 IF X>20 THEN POSITION 12,1 
MP 9886 IF X>40 THEN POSITION 24,1 
HI 9888 NEXT X 
IN9890 FOR X=l TO COUNTER : SOUND 3 , BAS ( X ) , 1 , 4 

:FOR T=l TO 100: NEXT T:NEXT X 
KM 9892 SOUND 3,0,0,0 
HG 9894 TRAP 9894-.PRINT "WHICH NOTE TO EDIT";: 

INPUT EN: Fl= 1 : GOSUB 500 
FP 9896 POSITION 2,18:PRINT "NEW NOTE #";EN;:I 

NPUT NN: BAS (EN) =NN: PRINT "MORE"; : INPUT 
R* 
MI 9897 IF R*="Y" THEN 9880 
CG 11500 DATA 243,230,217,204,193,182,173,162, 

153, 144, 136, 128 
KJ 11510 DATA 121,114,108,102,96,91,85,81,76,7 

2, 68, 64 
GH 11520 DATA 60,57,53,50,47,45,42,40,37,35,33 

,31,29 
AM 11530 DATA 67,68,69,70,71,65,66 
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Program 7. Player 4 



IC 1 DIM FN* ( 14) : PRINT CHRt (125) : POKE 709,160: 

POKE 7 12, 170: POKE 710,170 
CP 2 PRINT "REMEMBER TO DESIGNATE DEVICE (E.G. 
'Ds' FOR DISK":PRINT "WHEN ENTERING FILE 

NAME. " 
ACS PRINT "FILENAME" ;: INPUT FN* 
GK 4 ENTER FN* 

HJ 10 DIM A ( 128) , B < 128) , C < 128) , D < 128) 
CH 20 X = 
KM 30 X = X + 1 

OL 40 READ A,B,C,D:IF A = 256 THEN GOTO 100 
ND45 A(X)=A:B(X)=B:C<X)=C:D(X)=D 
AB 50 GOTO 30 
IN 100 FOR N=l TO X-l 
BE110 SOUND 0, A <N) , 10, 4: SOUND 1 , B ( N ) , 1 . 4 : SOU 

ND 2, C (N) , 1 0, 4: SOUND 3 , D < N > , 1 , 4 
HD 120 FOR DELAY=1 TO 100:NEXT DELAY 
CB 130 NEXT N 
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Exploring Atari Variables 



Bob Powell 



For many programmers, variables are not too exciting. But 
you'll be able to create much more effective programs if 
you understand how they are stored and how they can be 
manipulated, 

There are three types of variables that can be used by Atari 
programmers. 

Scalars. Common numerical variables, represented by a 
variable name such as X, Y, PAY, HIT, etc., are called scalars. 
The value of a scalar variable is assigned within your pro- 
gram (for example, by X = 7, INPUT Y, PAY = A + B, or 
HIT = X + 15*Y). Each scalar value occupies six bytes of 
memory. 

Arrays. Arrays are sets of numbers represented by a vari- 
able name followed by the element number in the set (for ex- 
ample, A(3), SCORE(20), or INCOME(10,12)). Before using an 
array, you must dimension it with the maximum size expected 
(for example, DIM SCORE(22)). That sets aside six bytes of 
memory for each array element; in other words, DIM 
SCORE(22) reserves 22*6 or 132 bytes. 

Strings. String variables are extremely versatile, and you 
will find many uses for them. Strings are represented by a 
variable name followed by the dollar sign (for example, A$, 
VTAB$, or BLANKS) and must also be dimensioned so the 
computer can reserve memory for the string. Each character in 
a string variable is stored as a one-byte ATASCII code (rang- 
ing from to 255), so entering DIM A$(35) will reserve 35 
bytes of memory for A$. 

The variable name table holds a list of all variable names 
that have been entered. They are stored as ATASCII code 
numbers in the same sequence that they were encountered in 
your program. Each variable name also identifies the type of 
variable. Scalars are stored with 128 added to the ATASCII 
value of the last byte in the name. For example, the name of 
the variable HIT is described in three bytes with values 72, 73, 
and 212 (212 = 84 + 128). Arrays are stored with a left paren- 
thesis with 128 added (40 + 128, or 168) as the last byte in the 
name. Strings are stored with the dollar sign plus 128 
(36 + 128 or 164) as the last byte. 

The memory address for the start of the variable name 
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table can be determined with PEEKs into 130 (LO) and 131 
(HI) or with NTAB = PEEK(130) + 256*PEEK(131). 

Run the following program to see the entries in the name 
table. It prints the value stored in the first 24 bytes of the 
name table, one byte for each character in each variable name. 
Check the results against the ATASCII listing in your manual, 
and don't forget that 128 has been added to the last character. 
The first number printed is 216, which is the first variable X 
(ATASCII code 88) plus 128, since X is also the last character 
in the first variable name. Line 50 prints the names with the 
last character as an inverse. Note: Before running this and sub- 
sequent program examples, enter NEW to clear previous vari- 
ables from the tables before entering the program. 

For error-free program entry, read "The Automatic Proofreader" elsewhere in this chapter 
before typing in this program. 

FK 1 REM .PROGRAM TO PRINT VARIABLE NAME TABLE 
EN 10 X=12: Y = 35: ZZ=12345: DIM A ( 1 2 ) , H I T ( 4 , 9 ) , SM 

ALL* (35) , BIG* (612) 
GB 20 NTAB = PEEK ( 130) +256*PEEK ( 131 ) -.REM .FIND N 

AME TABLE STARTING ADDRESS. 
PJ 30 FOR BYTE = TO 23:? PEEK ( NTAB+BYTE ) ; " , " ; : 

NEXT BYTE 
JF 40 ? : ? : ? 
KC 50 



FOR BYTE=0 TO 
; : NEXT BYTE 



? CHR* (PEEK (NTAB+BYTE) ) 



The variable value table contains eight bytes of data for 
each variable in the name table. The eight bytes have different 
meanings for each variable type, as shown in Table 1. 

Table 1 . Bytes in Variable Value Table 



Variable 
Type 


Byte Number 





1 


2 


3 


4 


5 


6 


7 


Scalar 





var # 


6-byte binary coded decimal (BCD) value 


Array 


65 


var # 


offset 
LO HI 


first DIM+1 
LO HI 


second DIM+1 
LO HI 


String 


129 


var # 


offset 
LO HI 


length 
LO HI 


DIM 
LO HI 
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To find the start of the variable value table, PEEK into 
134(LO) and 135(HI) or VTAB = PEEK(134) + 256*PEEK(135). 
Enter and run the following program to see the variable num- 
ber, name, and eight bytes of data for each variable in the pro- 
gram. As in the previous program, line 10 contains example 
variables for experimentation. By the way, this program can be 
easily modified and appended to your own programs to list 
variables for reference. 

LG 1 REM .PROGRAM TO PRINT VARIABLE VALUE TABL 

E 
LG 5 GRAPHICS 
EN 10 X=12: Y = 35: ZZ=12345: DIM A ( 1 2 ) , H I T ( 4 , 9 ) , SM 

ALL* (35) , BIG* (612) 
SF 15 NTAB = PEEK ( 130) +256*PEEK ( 131 ) : REM .FIND N 

AME TABLE STARTING ADDRESS. 
UN 20 VTAB = PEEK ( 134) +256*PEEK ( 135) : REM .FIND V 

ALUE TABLE STARTING ADDRESS. 
JN 25 ? "VARC3 SPACES J VARNAME C5 SPACES} VTAB DA 

TA" : ? 
DE 30 I=0:FOR VARNUM=0 TO 12:7 " # " ; VARNUM; " 

C4 SPACES}"; 
CP 35 POSITION 9, VARNUM+2: FOR BYTE = TO 100:VA 

RCHR=NTAB+BYTE 
LM40 IF PEEK (VARCHR) >128 THEN ? CHR* ( PEEK ( VAR 

CHR) -128) , : NTAB= VARCHR+ 1 : POP : GOTO 55 
HB 45 ? CHR* (PEEK (VARCHR) ) ; 
NI 50 NEXT BYTE 
GB 55 POSITION 1 7 , VARNUM+2 : FOR BYTE = TO 7:7 P 

EEK (VTAB+VARNUM*8+BYTE) ; 
LF 60 IF BYTE<7 THEN 7 " , " ; 
FH 65 NEXT BYTE: 7 
OE 70 I=I+1:NEXT VARNUM 

The array/string table contains the actual data for each 
element in an array and each character in a string. When 
BASIC encounters a string or array in your program, it first 
checks the name table for the variable number, then looks to 
the value table to see what it is. Finally, it takes the value of 
OFFSET (LO + 256*HI) and reaches that many bytes past the 
start of the array/string table for the actual data. The start of 
the array/string table is determined by PEEKing 140(LO) and 
141(HI) or ATAB = PEEK(140) + 256*PEEK(141). 
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The following program prints out data in the array/string 
table for SMALL$. Note that SMALL$ is the sixth variable en- 
tered in the program; thus its variable number is 5 (the first 
variable, X, is variable number 0). 

BP 1 REM .PROGRAM TO PRINT ARRAY/STRING DATA F 

OR SELECTED STRING (SMALL*) 
EN 10 X=12: Y = 35: ZZ=123A5: DIM A ( 1 2 ) , H I T ( 4 , 9 ) , SM 

ALL* (35) , BIG* (612) 
DM20 SMALL*="COMPUTE ! BOOKS" 
m 30 VTAB=PEEK ( 1 34 ) +256* PEEK ( 1 35 > 
AK 40 ATAB = PEEK ( 140) +256*PEEK ( 141 ) :REM .FIND S 

TART OF ARRAY/STRING DATA AREA 
BA 50 LO=PEEK (VTAB+5*B+2> : REM .PEEK IN VTAB FO 

R LO-BYTE OF SMALL* OFFSET 
PO 60 HI=PEEK (VTAB+5*8+3) : REM .PEEK IN VTAB FO 

R HI-BYTE OF SMALL* OFFSET 
U 70 OFFSET=LO+256*HI 
LH 80 FOR BYTE = TO 1 6 : A=PEEK ( AT AB+OFFSET+BYTE 

):? A, CHR* (A) :NEXT BYTE 



Using Strings to Store Designs 

So much for how variables are managed. What can be done 
with this knowledge? Plenty. Obviously, you can PEEK into 
the tables and determine the status of various variables. Less 
obvious but equally useful, you can POKE in new values. 
Also, for arrays and strings, you can change the value of OFF- 
SET and the computer will use the new address for the data 
instead of the array/string table. This is particularly useful 
when dealing with strings, as you'll see in a moment. 

As mentioned earlier, strings are very versatile. You know 
that strings are nothing more than a series of ATASCII num- 
bers. Each number has a value from 0-255 and occupies one 
byte in memory. A string of 1000 characters will occupy 1000 
adjacent bytes in memory. 

That suggests an interesting application. A handy way to 
reserve 1000 bytes (or any other amount) of memory for your 
use is to dimension a string, say A$(1000). You could set up 
your own table of values within the string by indexing every 
10 or 100 addresses. The starting address of your string can 
be quickly found by the ADR(A$) function. Entering 
?PEEK(ADR(A$) + 99) will return the contents of the hun- 
dredth byte in A$. Using strings in this manner is a common 
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way to store integer data (values less than 256) and machine 
language subroutines. Note that when a string is used in this 
way, it will have a peculiar appearance when printed; what 
you see on the screen will be the ATASCII characters 
corresponding to the byte values for the data. 

Now let's see what happens when you change the OFF- 
SET value for a string. Recall that after BASIC builds the vari- 
able tables, you can go in with POKEs and alter them. If you 
dimension a string, say A$, to be the first variable encountered 
in a BASIC program, it will be listed as the first variable (0) in 
the tables (don't forget to enter NEW to clear tables first 
before entering your program). Hence, in the variable value 
table (VTAB), bytes 2 and 3 are the LO and HI values, respec- 
tively, for the OFFSET of A$ data from ATAB start. 

In other words, the starting address of A$ data is 
ATAB + OFFSET or ATAB + PEEK(VTAB + 2) + 256*PEEK 
(VTAB + 3). POKE new LO-HI values into locations (VTAB 
+ 2) and (VTAB + 3); the computer will store A$ data to 
ATAB + NEWOFFSET instead of the array/string table. 

Remembering that memory is just a long continuous place 
to store numbers from to 255, let's change A$'s OFFSET and 
position the string to start at the display memory. Afterwards, 
any change in A$ will still change numbers in A$'s data table. 
But since A$'s data is stored in display memory, you will 
change the display as well. 

You can use that to create a screen design by putting 
characters into A$. That may seem a little mysterious, but the 
computer is actually looking at the display memory area 60 
times a second for screen data and couldn't care less where 
the data came from. 

The following program defines a string (A$), determines 
new LO-HI values for A$'s OFFSET, and then POKEs the new 
values into the variable value table for A$. Line 90 stores 
some data in A$ which is immediately displayed on the 
screen. 

HJ 1 REM .PROGRAM TO STORE STRING DATA TABLE F 

OR A* IN SCREEN MEMORY AREA 
HH 5 DIM A* (200) , B* (200) 
HW 10 GRAPHICS 3:SETCOLOR 0,4,6 
NL 20 VTAB=PEEK(13 4)+256*PEEK(135> 
MS 30 ATAB=PEEK(140)+256*PEEK(141) 
CA40 SCREEN=PEEK(88)+256*PEEK<89> 

42 



Chapter 1 



m 50 OFFSET = SCREEN-ATAB: REM .FIND DISTANCE FR 

OM ATAB START TO SCREEN MEMORY START 
V. 60 HI = INT ( OFFSET/256 ): REM .FIND HI-BYTE OF 

NEW OFFSET 
DK 70 LO = OFFSET-256*HI : REM .FIND LQ-BYTE OF NE 

W OFFSET 
Ft 80 POKE VTAB+2, LO: POKE VTAB + 3 , H I : REM .POKE 

IN NEW LO-HI POINTER FOR A* 
BK 90 A*="COMPUTE! BOOKS" : END 

PF100 FOR 1 = 1 TO 200: A* ( I , I ) =CHR* (200 ) : NEXT I 
EJ 1 10 END 
DM 200 A$(1)=CHR$(0) :A*<200)=CHR*<0) : A* <2> =A* 



While the GRAPHICS 3 picture is on the screen, type 
GOTO 100 to see one of many possible effects. Line 100 is a 
BASIC loop that fills A$ memory with the number 200. 

Speeding Things Up 

A much faster trick can be used to work at machine language 
speed. All characters in a string can be rapidly set to the same 
value by the statement A$(1) = CHR$(X):A$(SIZE) = CHR$(X): 
A$(2) = A$, where X = 0-255 and SIZE is equal to the maxi- 
mum string length. For example, A$(200) can be set to all ze- 
ros by executing A$(1) = CHR$(0):A$(200) = CHR$(0):A$(2) 
= A$. Try typing GOTO 200 while you're still in GRAPHICS 
3 and you will see the screen go blank (but note that a small, 
upper portion of the screen will still have some data since 
ATAB has now moved a few bytes in the manual mode). 
ATAB would not have moved had you stayed in the program 
mode. Now try changing A$ to contain all 255's by using 
CHR$(255). Try 185, 70, and other numbers of your choice. 

By now, you've probably noticed that each screen byte 
defines four adjacent color pixels on the screen in combina- 
tions of four colors (including background). This is true for the 
multicolor graphics modes of 3, 5, and 7. In GRAPHICS 8, 
each screen byte defines eight adjacent pixels of a single color. 
In multicolor modes, on and off patterns of bits and 1 of a 
screen byte select the color for the rightmost pixel associated 
with that byte. Bits 2 and 3 set the next pixel to the left and so 
forth. Go ahead and experiment some more by changing A$ to 
different values. 

Press SYSTEM RESET (don't enter NEW this time or it 
will destroy your program) and PRINT A$ to see what it looks 
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like. Now run the program again and while in GRAPHICS 3 
enter B$ = "FFFFFFFFFF". Then set A$(100,H0) = B$ to set the 
characters 100-110 of A$ equal to B$. Try A$(120 / 130) = B$ 
and experiment with different positions in A$ and values of 
B$. You can put A$(X,X + LEN(B$)) = B$ in a loop and vary X 
to create interesting effects. The screen can be changed very 
rapidly by having several strings for different shapes or de- 
signs and setting A$ (or parts of A$) equal to the choices. 
These strings can be complete pictures, and you can flip from 
one to another as simply as saying A$ = B$ and then A$ = C$. 

One more possibility is to first position the string in dis- 
play (or screen) memory. Then using conventional PLOT and 
DRAWTO commands, create a design of some sort; the 
graphic results will be automatically stored in your string. 

Of course, you can save the string to disk or tape like any 
other string, but you are really saving the screen. To do so, 
put A$ in screen memory and then set B$ = A$ after your de- 
sign is completed. Finally, save B$. 

In order to redisplay your saved picture, set up the graph- 
ics mode, change the offset to put A$ in screen memory, recall 
B$ from tape or disk, and set A$ = B$. Presto! Instant picture. 
Different graphics modes require different amounts of mem- 
ory, so be sure you have dimensioned a string large enough to 
cover the screen. The memory required for each mode is given 
in the following table. The lower row of values shows the 
number of bytes available when no text window is used. 

Table 2. Screen Memory Requirements for Various 
Graphics Modes 





Graphic Mode 

1 2 3 4 5 6 7 8 9 10 11 


Memory 


960 400 200 200 400 800 1600 3200 6400 


Memory (mode + 16) 


480 240 240 480 960 1920 3840 7680 7680 7680 7680 
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Atari Color Matcher 



Ron Tinnell 



The Atari has a great color set, but finding the colors you 
want can be tiresome. This program lets you browse 
through the 1 28 colors at your leisure and makes it easy to 
pick the combinations you want. 

"Color Matcher" uses graphics mode 2 to put a three-color 
test pattern on the screen. It can show you two foreground 
colors and any one background color at one time. 

Using the space bar and the cursor control keys, you have 
full control over all three colors. The cursor-left and cursor- 
right keys control color hue, while the cursor-up and cursor- 
down keys control luminosity. Pressing these keys steps 
through color or luminosity values by 1. You don't need to 
use the CTRL key; simply press the cursor key to change the 
values. 

The display shows the hue and luminosity values that 
correspond to the colors currently on the screen. An indicator 
points to the variable parameter that is currently active; press 
the space bar to select the test color you want to change. 

When entering the program, be careful with the PRINT 
statements in lines 160, 170, and 420. Each contains a double 
space. 



Color Matcher 

For error-free program entry, read "The Automatic Proofreader" elsewhere in this chapter 
before typing in this program. 



DF120 DIM H(3),L(3) 

AO 130 GRAPHICS 2 : H ( 1 ) = 1 : L < 1 ) = 1 4 : H ( 2 ) = 

: H(3)=3sL (3)=8:F=1 

FJ 140 SETCOLOR 4 , 1 , 1 4 : SETCOLDR 0,8.8: 

2,3,8 

GC 150 POSITION 5, 

EN 160 POSITION 1 , 

IP 170 POSITION 1 , 

KF 180 POSITION 1 1 

KH 190 POSITION 1 1 

EE 200 POSITION 2, 

AP210 POSITION 3, 

BL 220 POSITION 4, 

FI 230 POSITION 2, 

IB 240 POSITION 2, 



8:L (2)=8 



SETCOLOR 



0: PRINT #6; " 
2: PRINT #6; " 
3: PRINT #6; " 
, 2: PRINT #6; 
,3:PRINT #6; 
6:PRINT #6; " 
7: PRINT #6; " 
8: PRINT #6; " 
9: PRINT #6; " 
10:PRINT #6; 



COL1 
1 " 
14" 



BKGD 

HUE 

LUM 

"8" 

"8" 

A B 

E F 

HI J" 

4»#######" 



C 
B' 



D' 
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JA 250 POSITION 15,0:PRINT #6 ; CHR$ ( 1 95 ) ; CHR* ( 2 

07) ; CHR* (204) ; CHR* (178) 
KE 260 POSITION 16,2:PRINT #6;"3" 
KL 270 POSITION 16, 3: PR I NT #6; "8" 
PF 280 POSITION 11,6:PRINT #6 : CHR* ( 205 > ; CHR* ( 1 

60) ; CHR* (206) ; CHR* ( 160) ; CHR* (207) ; CHR* ( 

160) ; CHR* (208) 
KH 290 POSITION 12,7:PRINT #6 ; CHR* ( 209 ) ; CHR* ( 1 

60) ;CHR* (210) ; CHR* (160) ; CHR* (21 1 > 
FJ 300 POSITION 13,8:PRINT #6 ; CHR* ( 2 1 2 ) ; CHR* ( 2 

13) ; CHR* (214) 
HH310 POSITION 10,9:FOR M = TO 7:PRINT #6;CHR 

*(163) ; :NEXT M 
PF 320 POSITION 10,10:FOR M = TO 7:PRINT #6;CH 

R* ( 163) ; : NEXT M 
LN 400 IF F = 4 THEN F= 1 
NE 405 POSITION ( 5*F+ 1 ) , 4 : PR I NT #6 ; CHR* ( 94 ) ; CH 

R* (94) 
LL410 CLOSE #3:0PEN #3 , 4 , , " K : " : GET #3,K 
SN420 IF K = 32 THEN POSITION ( 5*F+ 1 ) , 4 : PR I NT # 

6;" ":F=F+l:GO TO 400 
JK 430 IF K = 42 THEN H(F)=H(F)+1 
JO 440 IF K = 43 THEN H(F)=H(F)-1 
CE 450 IF H(F)<0 THEN H(F)=15 
CH 460 IF H(F)>15 THEN H(F)=0 
KK 470 IF K = 45 THEN L(F)=L(F)+2 
KL 480 IF K = 61 THEN L(F)=L(F)-2 
CP 490 IF L(F)<0 THEN L(F)=14 
CJ 500 IF L(F)>14 THEN L(F)=0 

HE510 POSITION (5«F+1 ) , 2:PRINT #6;H(F);" " 
HK 520 POSITION ( 5*F+ 1 ) . 3 : PR I NT #6;L(F);" " 
FK 530 Q = 4 

HK 540 IF F = 2 THEN Q = 
HO 550 IF F = 3 THEN Q = 2 
HB 560 SETCOLOR 0,H(F),L(F) 
6J 570 GO TO 400 
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The Automatic Proofreader 

Charles Brannon 



At last there's a way for your computer to help you check 
your typing. "The Automatic Proofreader" will make enter- 
ing programs faster, easier, and more accurate. 

The strong point of computers is that they excel at tedious, 
exacting tasks. So why not get your computer to check your 
typing for you? 

"The Automatic Proofreader" will help you type in 
program listings without typing mistakes. It is a short error- 
checking program that hides itself in memory. When activated, 
it lets you know immediately after typing a line from a pro- 
gram listing if you have made a mistake. Please read these 
instructions carefully before typing in any programs in this 
book. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be very 
careful when entering the DATA statements — don't type an 
1 instead of a 1, an O instead of a 0, extra commas, etc. 

2. Save the Proofreader on tape or disk at least twice before 
running it for the first time. 

3. After the Proofreader is saved, type RUN. It will check itself 
for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place — you'll need it again 
and again, every time you enter a program from this book 
or COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it activates 
itself. You are now ready to enter a program listing. If you 
press SYSTEM RESET, the Proofreader is disabled. To re- 
activate it, just type PRINT USR(1536) and press RETURN. 

Using the Proofreader 

All listings in this book have a checksum found immediately to 
the left of each line number. Don't enter the checksum when 
typing in a program. It is just for your information. 

When you type in a line from a program listing and press 
RETURN, the Proofreader displays the checksum letters at the 
top of your screen. These checksum letters must match the 
checksum letters in the printed listing. If they don't, it means 
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you typed the line differently than the way it is listed. Im- 
mediately recheck your typing. You can correct any mistakes 
you find immediately. 

The Proofreader is not picky with spaces. It will not no- 
tice extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
since the Proofreader will catch practically everything else that 
can go wrong. 

Due to the nature of a checksum, the proofreader will not 
catch all errors. The Proofreader will not catch errors of trans- 
position. In fact, you could type in a line in any order, and the 
Proofreader wouldn't notice. 

There's another thing to watch out for: If you enter the 
lines by using abbreviations for commands, the checksum will 
not match up. But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. The only abbreviation that 
cannot be handled this way is when a ? is used instead of 
PRINT; they are not the same to the Proofreader. 

The Automatic Proofreader 

100 GRAPHICS 

110 FOR 1 = 1536 TO 1700-.READ A:POKE I,A:CK=C 

K+A:NEXT I 
120 IF CKO19072 THEN 7 "Error in DATA Stat 

ements. Check Typing. " : END 
130 A=USR<1536> 
140 ? :? "Automatic Proofreader Now Activat 

ed. " 
150 END 

1536 DATA 104,160,0,185,26,3 
1542 DATA 201,69,240,7,200,200 
1548 DATA 192,34,208,243,96,200 
1554 DATA 169,74,153,26,3,200 
1560 DATA 169,6,153,26,3,162 
1566 DATA 0,189,0,228,157,74 
1572 DATA 6,232,224,16,208,245 
1578 DATA 169,93,141,78,6,169 
1584 DATA 6,141,79,6,24,173 
1590 DATA 4,228,105,1,141,95 
1596 DATA 6,173,5,228,105,0 
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1602 


DATA 


141 


1608 


DATA 


203 


1614 


DATA 


93, , 


1620 


DATA 


124 


1626 


DATA 


0, 


1632 


DATA 


246 


1638 


DATA 


201 


1644 


DATA 


101 


1650 


DATA 


96, 


1656 


DATA 


160 


1662 


DATA 


200 


1668 


DATA 


203 


1674 


DATA 


105 


1680 


DATA 


165 


1686 


DATA 


161 


1692 


DATA 


133 


1698 


DATA 


104 



, 96, 6, 169, 0, 133 
,96, 247, 238, 125, 24 1 
6, 244, 24 1 , 1 15, 24 1 
, 241 ,76, 205, 238, 
,0, 0, 32, 62 
,8,201,155, 240, 13 
, 32, 240, 7, 72, 24 
,203, 133, 203, 104, 40 
72, 152, 72, 138, 72 
,0, 169, 128, 145, 88 
, 192, 40, 208, 249, 165 
,74,74,74, 74,24 
, 161 , 160, 3, 145,88 
, 203,41 , 15, 24, 105 
, 200, 145,88, 169, 
,203, 104, 170, 104, 168 
, 40,96 
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Chapter 2 

Nessie 

A Nonviolent Game for Atari 

Tom R. Halfhill 



"Nessie" is a nonviolent action game that challenges you 
to snap a clear photograph of the Loch Ness monster. It 
runs on any Atari computer with at least 1 6K (tape) or 24K 
(disk), and a joystick. 

For decades, fans of and believers in Scotland's Loch Ness 
monster have affectionately referred to the mysterious creature 
as "Nessie" — hence the title of this game. 

The game was inspired by a TV documentary on Loch 
Ness which recounted the hundreds of attempts to photograph 
the monster. Almost all of these attempts have failed; there 
exist only a few controversial photos showing parts of fins, 
shadowy shapes, and blurred figures. The game simulates 
some of the difficulties faced by would-be photographers of 
Nessie. 

Starting Nessie 

When typing "Nessie," omit all REM statements if your com- 
puter has only 16K of RAM. It will barely fit in memory if 
loaded from tape. At least 24K is required for disk. 

After you type RUN, the program requires a few seconds 
to initialize. During this period, special areas of memory are 
protected, player/missile graphics are set up, game screens are 
prepared, and machine language routines are loaded into 
memory (Nessie makes extensive use of machine language, as 
noted below). About halfway through this waiting period 
you'll see the camera viewfinder frame and aiming crosshairs 
appear on the screen. 

The next screen which appears lets you select difficulty 
options and displays the scoring possibilities. 

There are two difficulty levels. Toggle between them with 
the SELECT key. This chooses which lens you want on your 
camera. By far the easiest option is wide-angle, the default op- 
tion. A wide-angle lens allows photographers to cover a larger 
area from their camera position. In Nessie, the wide-angle lens 
is indicated by a large viewfinder. 

Pressing the SELECT key switches between the wide- 
angle and the telephoto lens. The telephoto is represented by 
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a much smaller viewfinder. In fact, the telephoto viewfinder 
barely frames Nessie. This makes the telephoto lens much 
more difficult to use than the wide-angle. To give you an idea 
of this difference, Nessie appears actual size within each view- 
finder as you switch lenses. 

Since the telephoto is harder to use, it scores more points. 
The lower half of this screen displays the point totals for every 
possible picture you can take. For example, using the wide- 
angle lens, a clear, properly framed photo of Nessie scores 
2000 points; a photo in which you crop off Nessie with the 
viewfinder scores 100 points; if you are fooled and take a 
photo of a fish or an eel instead of Nessie, you get only 50 
points; and if you shoot a blurred photo by moving the cam- 
era when you press the shutter button, you get zero points. 
Likewise, a photo of nothing also scores nothing. 

All of these point totals are multiplied by ten if you're 
using the telephoto lens. The game also scores you on the 
amount of time you take to shoot your pictures. The longer 
you take, the lower your score. 

After selecting your lens, begin the game by pressing the 
START key. This starts the timer and displays the main game 
screen. 

Getting the Whole Picture 

At the top of the main game screen is your camera's film 
counter, which shows how many pictures remain on your roll 
of film. You start with a 20-exposure roll. Each time you snap 
a picture, the film counter decrements. 

Your camera viewfinder starts in the center of the screen 
(which represents Loch Ness). You can move it in any direc- 
tion with the joystick. Pressing the fire button releases the 
shutter. The viewfinder frame itself is blue, with a green aim- 
ing crosshairs in the center. To take a properly centered photo, 
you must position the crosshairs over Nessie. If any part of 
Nessie is touching the viewfinder frame when you snap the 
shutter, it will register as a cropped photo when the film is 
developed at the end of the game. A picture of a piece of 
Nessie is better than nothing — that's why it's worth 100 or 
1000 points — but it's not nearly as valuable as a photo of the 
whole monster. (Let's face it, wouldn't you feel better walking 
into the New York Times with an indisputable picture of Nessie 
instead of a doubtful snapshot of a dorsal fin?) 
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For the same reason, you must be careful not to include 
any other objects in the viewfinder while photographing 
Nessie. This isn't as easy as it sounds. When you start the 
game, you'll find that Loch Ness is alive with fish and eels of 
assorted shapes and colors. If you photograph one of these in- 
stead, you've been fooled — and your photo is worth only 50 
or 500 points. (The reason you get any points at all is that you 
might be able to sell the photo to Field & Stream or an airline 
magazine.) The eels are particularly troublesome. They bear an 
uncanny resemblance to Nessie, which is why so many hope- 
ful photographers over the years have been fooled. 

Another hazard to beware of is jittery hands. Nessie is not 
an easy target — the creature appears at random in the Loch, 
swims in random directions for a few seconds, and then sub- 
merges to appear somewhere else. Meanwhile, you're trying to 
center the monster in the viewfinder. If you snap the shutter 
while moving the finder, the picture will be blurred. And 
that's worth zero points. 

When you get down to your last five pictures on the roll 
of film, the viewfinder frame automatically turns from blue to 
bright yellow as a warning. This is in case you're too busy to 
pay attention to the film counter. 

Developing the Film 

After snapping your last shot, everything freezes for an in- 
stant. Then the screen blanks out and the film starts develop- 
ing. Since the slightest bit of light in the darkroom would 
spoil it all, the screen is black during this process. After a few 
moments, the finished pictures appear — gradually developing 
to full brightness as they would in a darkroom tray. 

Each of the 20 finished prints shows what you photo- 
graphed when you snapped the shutter. They are arranged in 
the order you shot them, and each is captioned (unless the 
picture is blank). At the bottom of the screen is your final 
score, adjusted for the amount of time that elapsed. 

To restart Nessie, just snap the shutter button on your 
joystick. This returns you to the setup screen, where you can 
change lenses if you wish before playing again. 

Programmer's Notes 

Nessie is a fast, responsive game because the most critical 
animation — the movement of the camera viewfinder — is 
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written entirely in machine language. An ML routine which fills 
almost all of page 6 in memory (1536 decimal, $600 hex) con- 
stantly reads the joystick and moves the finder. All of this is 
done during the vertical blank interval, that split second when 
the TV's electron gun returns from the bottom of the screen to 
the top to begin scanning another screen frame. Since this 
happens 60 times per second, the viewfinder's movements ap- 
pear instantaneous and flicker-free. 

The viewfinder itself is created with player/missile graph- 
ics. Two player objects are used — one for the frame and an- 
other for the crosshairs. This allows the collision-checking 
routine to detect separate collisions between Nessie, the frame, 
or the crosshairs. 

At least 90 percent of the BASIC in Nessie is initializa- 
tion — once it sets up the game for the first time, most of it is 
never executed again. Using BASIC for this work made Nessie 
easier to program, since setup tasks can be tedious in machine 
language. ML was used only for the time-critical operations. 

This is reflected in the main loop, which starts at line 
10000 and is really only six lines long (and a few of these 
lines could be combined to make the loop even shorter). Since 
the ML routine executes automatically during each vertical 
blank, repeated calls to the routine via BASIC'S USR statement 
are unnecessary. The only thing BASIC does during the main 
phase of Nessie is animate the fish, eels, and monster. BASIC 
also checks the shutter button and handles the picture-taking 
sequence (clicking the shutter, flashing the screen, storing col- 
lision register values in arrays for later analysis). Everything 
else is in machine language. 

Actually there are four ML routines in the program. By far 
the largest is the main routine in page 6. A second routine 
switches on the vertical blank interrupt routine when the 
game starts, and another shuts it off when the game ends. The 
fourth routine instantly flips player shapes when called by a 
USR statement. This is used to rapidly change the viewfinder's 
size when toggling back and forth between the wide-angle 
and telephoto lenses during the setup screen. This very short 
but useful routine is from Eric Stoltman's article "Extending 
Player/Missile Graphics" (COMPUTEI's First Book Of Atari 
Graphics). 

Redefined characters in graphics mode 2 + 16 are used for 
Nessie, the fish, and the eels during the main part of the 
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game. To speed up their animation, the characters are POKEd 
directly into screen memory, which is faster than using PO- 
SITION and PRINT statements. 

The final game screen, which shows the developed pic- 
tures, uses a modified display list to put strips of different 
graphics modes on the screen simultaneously. This screen is a 
mixture of graphics modes and 1 . 



Nessie 

For error-free program entry, read 
in this program. 



'The Automatic Proofreader" in Chapter 1 before typing 



GOSUB 11000:REM Ini 
210 GOSUB 12000:REM Red 
215 GOTO 13000:REM Setu 
220 GOTO 10000:REM Main 
1000 REM 



DE 200 

66 

EH 

BL 
Iff 

JB 
KG 

CE 



t i al i z e 

e-fine characters 

1 oop 



1005 
1010 
1020 



CI 1040 

AJ 1060 

K6 2000 
6D 2005 
KH 2010 
FB 2020 



BL 2040 



2060 



N6 2080 


Aft 2100 


LJ 2200 


NF 


10000 


DF 


10005 


NS 


10010 


EE 


10020 


HF 


10040 



REM *** MOVE NESSIE 

REM 

POKE SCREEN+COORD( 

OORD( OBJECT) +MOVE ( 

IF NOOCOORD<40 OR 

ORD (OBJECT) = INT (RN 

POKE SCREEN+NOOCOO 

D (OBJECT) =NOOCOORD 

REM 

REM *** SNAP PHOTO 

REM 

POKE 77,0:FILM=FIL 

#6; " "sPOSITION 1 

0,0,0,0 

FRAME (PHOTO) =PEEK ( 

EEK (53253) : BLUR(PH 

PHOTO+1 

SETCOLOR 4, 9,4: IF 

,28 

IF FILM=0 THEN SOU 

TIME=INT ( (PEEK (18) 

PEEK(20) ) /60) : GOTO 

BUTTON=STRIG (0) : RE 

A=USR (ADR (VBOFF*) ) 

=1 TO 1000:NEXT I: 

REM 

REM *** MAIN LOOP 

REM 

POKE HITCLR,0 

IF STRIG(0)=1 THE 



DECOYS *** 

OBJECT) , 0: NOOCOORD=C 
INT (RND (0) *9> +1 ) 
NOOCOORD>239 THEN CO 
D (0) *200) +40: RETURN 
RD,CHAR(OBJECT) : COOR 
: RETURN 

*** 



M-l:POSITION 15,0:? 
5,0:? #6; FILM: SOUND 

53252) : HAIR (PHOTO) =P 
OTO)=STICK(0) :PHOTO= 

FILM<6 THEN POKE 704 

ND 0,240, 10, 15:POP : 
*65536+PEEK ( 19) *256+ 

2200 
TURN 

:SOUND 0,0,0,0:FOR I 
GOTO 14000 

*** 



N BUTTON=l 
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10340 


EL 


10380 


NF 


10400 


CB 


10420 


NG 


1 1000 


JD 


1 1020 


UK 


1 1040 


EJ 
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IF STRIG<0)=0 AND BUTT0N=1 THEN POKE 

712,14:S0UND , 4 , 8 , 1 5 : GOSUB 2000 

OBJECT=OBJECT+l : IF OBJECT>6 THEN OBJE 

CT=1 

GOSUB 1000:REM Move objects 

GOTO 10000 

REM 

REM *** INIT P/M & ML *** 

REM 

GRAPHICS 2+16:SETCOLOR 2,0,0:7 #6;" 

{.7 SPACESJnessie" : ? #6:? #6;" 

C4 SPACES! PLEASE WAIT":? #6;" 

C5 SPACES321 SECONDS" 
BP 11080 PM=PEEK<106> -8: PMBASE=256*PM : H I TCLR=5 

3278 
NG11100 FOR I=PMBASE+512 TO PMBASE+76B : POKE I 

,0:NEXT I 
HF 11120 RESTORE 11280:DIM W I DEFRAME* < 20 ) : FOR 

1 = 1 TO 20:READ A : W I DEFRAME* < I , I > =CHR* 

(A):NEXT I : REM Wide viewfinder 
HD 11140 RESTORE 11300:DIM TELEFRAME* < 20 > : FOR 

1=1 TO 20:READ A: TELEFRAME* ( I , I > =CHR* 
(A):NEXT I : REM Tele viewfinder 
ID 11160 RESTORE 11340:DIM W I DEHA I R* < 20 ) : FOR I 

=1 TO 20:READ A : W I DEHA I R* < I , I > =CHR* < A 

):NEXT I:REM Wide crosshair 
IK 11180 RESTORE 11360:DIM TELEHAI R* < 20 > : FOR I 

=1 TO 20:READ A : TELEHA I R* ( I , I ) =CHRt < A 

):NEXT I:REM Tele crosshair 
CP 11200 POKE 704, 130: POKE 705, 198: REM Blue vi 

ewfinder & green crosshair 
IC 11220 POKE 559, 46: POKE 623,1: POKE 53277, 3: P 

OKE 54279, PM:POKE 53256, 3:P0KE 53257, 

3:REM P/M setup 
BJ 11240 HORIZ0=1 16: VERT0=PMBASE+5 1 2+6 1 : HORIZ1 

=1 18: VERT l=PMBASE+640+66: REM Initial 

posi t i ons 
IH 11245 FOR 1 = 1 TO 20:POKE VERT0+ I , ASC < W I DEFR 

AME* < I ) ) :NEXT I : POKE 53248, HOR I Z0 : REM 
Draw view-finder 
NP 11250 FOR 1 = 1 TO 20:POKE VERT 1 + I , ASC < W I DEHA 

IR*(I)):NEXT I : POKE 53249 , HOR I Z 1 : REM 

Draw crosshair 
OJ 11260 REM * VIEWFINDER SHAPES * 
BO 11280 DATA 255.255,129,129,129,129,129,129, 

129, 129, 129, 129, 129, 129, 129, 129. 129, 2 

55, 255, 
EL11300 DATA 255,129,129,129,129,129,129,129, 
1 29 , 255 ,0,0,0,0,0,0,0,0,0,0 
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KB 11320 REM * CROSSHAIR SHAPES * 

DS 11340 DATA 16,16,16,16,124,16,16,16,16,0,0, 

0,0,0,0,0,0,0,0,0 

FN 11360 DATA 16,16,124,16,16,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0 

PH 11380 REM * FLIP SHAPE ROUTINE * 

NA11400 DIM FLIP* (25) : RESTORE 11420:FOR 1 = 1 T 

25:READ A: FL IP* < I , I > =CHR* < A > : NEXT I 

DS 11420 DATA 104,104,133,204,104,133,203,104, 

133,207, 104, 133, 206, 160, 0, 177, 206, 145 

,203, 200, 192, 20, 208, 247, 96 

JN 11440 REM * READ OOYMOVE ROUTINE * 

KA 11460 RESTORE 11480:FOR 1=0 TO 204:READ A:P 

OKE 1536+1 ,A:NEXT I 

OH114B0 DATA 174,120,2.224,14,208 

CL 11490 DATA 3.32,172,6,224,6 

FH 11500 DATA 208,6,32,172,6,32 

FI 11510 DATA 107,6,224,7,208,3 

IJ 11520 DATA 32,107,6,224,5,208 

FD 11530 DATA 6,32,140,6,32,107 

FF 11540 DATA 6,224,13,208,3,32 

FO 11550 DATA 140,6,224,9,208,6 

CJ 11560 DATA 32,140,6,32,74,6 

IL 11570 DATA 224,11,208,3,32,74 

FJ 11580 DATA 6,224,10,208,6,32 

DJ 11590 DATA 172,6,32,74,6,76 

PJ 11600 DATA 98,228,173,253,6,201 

HA 11610 DATA 48,240,25,206,253,6 

HD 11620 DATA 206,253,6,173,253,6 

LH 11630 DATA 141,0,208,206,251,6 

HB 11640 DATA 206,251,6,173,251,6 

HN11650 DATA 14 1,1,208,96,96,173 

PC 11660 DATA 253,6,201,176,240,25 

HP 11670 DATA 238,253,6,238,253,6 

HB 11680 DATA 173,253,6,141,0,208 

HN 11690 DATA 238,251,6,238,251,6 

LJ 11700 DATA 173,251,6,141,1,208 

ND 11710 DATA 96,96,172,252,6,192 

HK11720 DATA 96,176,24,160,0,177 

BD 11730 DATA 203,145,205,136,192,0 

DD 11740 DATA 208,247,238,252,6,238 

HK 11750 DATA 252,6,238,250,6,238 

ND 11760 DATA 250,6,96,96,172,252 

HI 11770 DATA 6,192,28,144,24,160 

BO 11780 DATA 0,177,205,145,203,200 

JI 11790 DATA 192,255,208,247,206,252 

LH 11800 DATA 6,206,252,6,206,250 

SK 11810 DATA 6,206,250,6,96,96 

ID 11820 REM * SET UP VBLANK * 
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FH 11900 DIM VBSETUP* ( 1 1 ): RESTORE 11920=FOR 1= ^ 

1 TO llrREAD A: VBSETUPt ( I )=CHR$ (A) :NE 

XT I 
KH 11920 DATA 104, 162, 6, 160, 0, 169,7, 32, 92, 228, 

96 

DIM VBOFF* ( 1 1 ) : FOR 1=1 TO 1 1 : READ A:V 

BOFF* ( I ) =CHR* <A> : NEXT I 

DATA 104,162,228,160,98,169,7,32,92,2 ■— ► 

28, 96 

DIM LENS* ( 18) : DIM MOVE < 9 ) , CHAR < 6 ) , COO 

RD (6) , FRAME (20) , HAIR (20) , BLUR (20) , PIC 

TURE(20) ,CAPTION(30) : RETURN 

REM 

REM *** REDEFINE CHARACTERS *** 

REM 

CHSET= (PEEK ( 106) -8) *256: FOR 1=0 TO 51 

2:POKE CHSET+I,PEEK(57344+I ) :NEXT I 

RESTORE 12025 

READ A: IF A = -l THEN RETURN 

FOR J=0 TO 7:READ B:POKE CHSET+AtB+J, 

B:NEXT J 

GOTO 12022 

DATA 1 , 255,255, 192, 192, 192, 192, 192, 19 

-i- 

DATA 3,255,255,3,3,3,3,3,3 

DATA 4,3,3,3,3,3,3,3,3 

DATA 5,3,3,3,3,3,3,255,255 

DATA 6,0,0,0,0,0,0,255,255 

DATA 7, 192, 192, 192, 192, 192, 192, 255, 25 

5 

DATA 8, 192, 192, 192, 192, 192, 192, 192, 19 

DATA 9,0,0,0,0,0,0,213,127 
DATA 10,0,0,64,192,85,127,126,0 
DATA 11,0,0,2,3,170,254,126,0 

DATA 12,0,0,0,0,0,0,171,254 ___ 

DATA 13,0,0,56, 125, 222 , 125,56,0 
DATA 14,0,0,28,190,123,190,28,0 
DATA 26, 5, 10, 21, 42, 84, 168, 80, 128 
DATA 27,255,255,0,0,0,0,0,0 
DATA 32,0,32,48,32,224,224,0,0 
DATA -1 
REM 

REM * SET UP SCREEN * 
REM 

SETCOLOR 4,9,4:POKE 756, CHSET/256: ? # 
6;CHR* ( 125) : SETCOLOR 3,12,2: SETCOLOR 
0, 4, 8: SETCOLOR 2,0,0 
CE 13040 FILM=20: LENS=1 : LENS*=" wi deangl etel eph 
oto" : SCREEN=PEEK (88) +PEEK (89) *256 



JE 


1 1940 


FH 


1 1960 


CB 


1 1980 


NH 


12000 


PB 


12010 


NN 


12015 


HI 


12020 


BE 


12021 


AI 


12022 


Fil 


12023 


CJ 


12024 


IF 


12025 


BC 


12026 


EC 


12027 


BG 


12028 


Afi 


12029 


IH 


12030 


I J 


12031 


PL 


12032 


AX 


12033 


JH 


12034 


CH 


12035 


AS 


12036 


AK 


12037 


EN 


12038 


M 


12039 


m 


12040 


HA 


12041 


Nl 


13000 


IC 


13005 


NJ 


13010 


LI 


13020 



~ 
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FN 13060 ? #6;" <L7 SPflCFS> i:i^a<a " : ? #6:7 #6;" < 

select? " ; LENS* (LENS, LENS+S) r ? #6;" 

{4 SPACESXstart > game" 
BD 13062 POSITION 0,8:? #6 ; CHR* ( 1 7 1 ) ; " NESSIE 

=2000/20000" : POSITION 0,9:7 #6;CHR$(1 

92);" CROP = 100/ 1000" 
HH 13064 POSITION 0,10:? #6 ; CHR* < 1 74 ) ; CHR* ( 1 72 

);" FOOLED= 50/ 500" : POSITION 0,11: 

? #6; CHR* ( 186) ; " BLUR = <3 SPACES>0" 
CH 13070 POSITION 10,7:? #6 ; CHR* ( 1 7 1 ) 
HF 13080 SOUND 0, 0,0, 0: POSITION 10,3:? #6;LENS 

* (LENS, LENS+8) : IF PEEK ( 53279 ) =6 THEN 

13160 
NO 13100 IF PEEK (53279) <>5 THEN 13080 
BE 13110 LENS = LENS + 9: IF LENS>10 THEN LENS=1 
FF 13115 IF LENS=1 THEN 13125 
EP 13120 IF LENS>1 THEN 13140 
IH 13125 A=USR (ADR (FLIP*) , VERT0 , ADR ( W I DEFRAME* 

) ) : POKE 53256, 3: SOUND 0,160,10,15 
IE 13128 FOR I=VERT1 TO VERT1+2:P0KE I,0:NEXT 

I : VERT 1 = VERT 1+3: A = USR (ADR (FLIP*) , VERT 

1 , ADR (WIDEHAIR*) ): POKE 53257,3 
FK 13130 POSITION 9,6:? #6;" ": POSITION 10,7:? 
#6; CHR* ( 171 ) : HORI Z 1=1 18: POKE 53249, H 

ORIZl:60TO 13080 
FE 13140 A = USR (ADR (FLIP*) , VERT0, ADR (TELEFRAME* 

)):POKE 53256, 1 : SOUND 0,80,10,15 
CJ 13145 VERT1= VERT 1-3: A = USR (ADR (FLIP*) , VERT1 , 

ADR (TELEHAIR*) ): POKE 53257,1 
FP 13150 POSITION 10,7:? #6;" ":POSITION 9,6:? 
#6; "E" : HORIZ 1=1 17: POKE 53249, HORIZ1 : 

BOTO 13080 
OC13160 SOUND 0,120,10,15:? #6 ; CHR* ( 1 25 ) : POS I 

TION 0,0:? #6; "ECCnessi e FILM=";FILM; 



HL 13180 COLOR ASC ( "H" ) : PLOT 0,1:DRAWTO 19,1 
HB 13200 MOVE ( 1 ) =-20: MOVE (2) =-19: MOVE (3) =1 : MOV 

E(4)=21:MOVE(5)=20:MOVE(6)=19 
FD 13220 MOVE (7) =-1 : MOVE (8) =-21 : MOVE (9) =250: CH 

AR(1)=9:CHAR(2)=139:CHAR(3)=77:CHAR(4 

)=201:CHAR(5)=14:CHAR(6)=204 
BS 13240 FOR OBJECT=l TO 6 : COORD ( OB J ECT ) = I NT ( R 

ND(0)*200)+40:POKE SCREEN+COORD (OBJEC 

T) , CHAR (OBJECT) : NEXT OBJECT 

PHOTO=l 

POKE 1789, HORIZ0: POKE 1787.HORIZ1 

POKE 1788,61:POKE 203,0:REM VERT0 Id 

by t e 
JL 13280 POKE 204 , (PMBASE + 512) /256: REM VERT0 h 

i byte 

61 



PD 


13250 


BF 


13260 


AP 


13270 
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LS 13290 POKE 1 786 , 1 94 : POKE 207, 128: REM VERT1 

Id b y t e 
JJ 13300 POKE 208, (PMBASE+512) /256: REM VERT1 h 

i byte 
GI 13310 POKE 205,2:REM Lo byte -for vert memor 

y shift 
HG 13320 POKE 206, (PMBASE+512) /256: REM Hi byte 

■for vert memory shift 
SE 13330 IF LENS>1 THEN POKE 1 647 , 1 92 : POKE 168 

0,106:REM Reset range check for telep 

hot o 
ML 13340 A = USR (ADR (VBSETUP*) ): POKE 18,0:POKE 1 

9,0:POKE 20,0:SOUND 0, 0, 0, 0: GOTO 220 
NJ 14000 REM 

AO 14020 REM *** DEVELOP FILM *** 
NN 14040 REM 
NP 14050 POKE 53277, 0:POKE 53261, 0:POKE 53262, 

0:REM P/M OFF 
AN 14060 GRAPHICS 0:SETCOLOR 2 , , : DL I ST = PEEK ( 

560) +256*PEEK (561 ) : SCREEN=PEEK ( 88 ) +2 5 

6*PEEK (89) 
NF 14065 SETCOLOR , , : SETCOLOR 1 . 1 2 , 1 : SETCO 

LOR 3,0,0 
NP 14070 POKE 756, CHSET/256: POKE 752,1:7 CHR$ ( 

125) ; :POSITION 0,16:POKE 82,0 
CC 14080 RESTORE 14100:FOR 1=6 TO 26-.READ A:PO 

KE DLIST+I , A:NEXT I 
m 14100 DATA 6,6,6,2,2,6.6,6.2,2,6,6,6,2,2,6. 

6,6, 2,2,6 
HL 14110 FOR 1 = 1 TO 15:READ A:POKE SCREEN+672+ 

I , A: NEXT I 
m 14112 FOR I=PMBASE+512 TO PMBASE+768 : POKE I 

,0:NEXT I 

SP14115 DATA 36,37,54,37,44,47,48,41,46,39,0, 

38, 41 , 44, 45 
LB 14120 FOR 11 = 1 TO 4 
JG 14140 FOR 1 = TO 19:READ A:POKE SCREEN+40+I 

,A:NEXT I 
EL 14160 DATA 1,27,3,0,1,27,3,0,1,27,3,0,1,27, 

3,0, 1,27,3,0 
JH 14180 FOR 1=0 TO 19:READ A:POKE SCREEN + 60+I 

,A:NEXT I 
FB 14200 DATA 8,0,4,0,8,0,4,0,8,0,4.0,8,0,4,0, 

8,0,4,0 
JJ 14220 FOR 1=0 TO 19:READ A:POKE SCREEN + 80+I 

,A:NEXT I 
HD 14240 DATA 7,6,5,0,7,6,5,0,7,6,5,0,7,6,5,0, 

7,6,5,0 
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NP 14260 RESTORE 1 4 1 60 : SCREEN=SCREEN+ 1 40 : NE X T 

I I 
OK 14280 RESTORE 1 4300 : SCREEN = PEEK ( 88 ) +256 *PEE 

K(89):FOR 1=0 TO 5:READ A:POKE SCREEN 

+606+1 , A: NEXT I 
FN 14300 DATA 46,37,51,51,41,37 
GH 14350 FOR 1 = 1 TO 20:READ A : P I CTURE < I ) = A : NEX 

T I 
KD 14355 DATA 61,65,69,73,77,201,205,209,213,2 

17, 34 1 , 345, 349,353, 357. 481, 485, 4 89, 49 

3, 497 
SA 14356 FOR 1 = 1 TO 30:READ A: CAPTION (I) =ft:NEX 

T I 
CF 14357 DATA 34,44,53,50,0,0,35,50,47,48,0,0, 

38, 47, 47, 44, 37, 36, 46, 37, 51 , 51 , 41 , 37, 

,0,0,0,0,0 
KM 14 360 RESTORE 1 45 1 : SCORE = : SETCOLOR 1,0,0: 

FOR 1=1 TO 21 
KB 14365 IF 1=21 THEN 14520 
EG 14370 IF BLUR(I)<>15 THEN POKE SCREEN + PICTU 

RE ( I ) , 90: X=0: GOSUB 14500:NEXT I 
AO 14380 IF HAIR(I)=4 AND FRAME ( I ) <>4 THEN SCO 

RE = SCORE + 2000: POKE SCREEN + P I CTURE < I ) , 

203: X=1S: GOSUB 14500:NEXT I 
AS 14390 F = FRAME < I ) : H = HAIR < I ) 
AK 14400 IF F>3 AND F< >8 AND F<>9 AND FO10 TH 

EN SCORE=SCORE+100: POKE SCREEN+P I CTUR 

E ( I ) , 96: X = 6: GOSUB 14500:NEXT I 
PF 14420 IF HAIR<I)>0 THEN SCORE = SCORE + 50 : POKE 
SCREEN + P I CTURE <I),76:X = 12: GOSUB 1450 

0:NEXT I 
SO 14440 X = 24:GOSUB 14500:NEXT I 
BE 14500 SOUND , 1 2 * I , 1 , 7 : READ A:FOR 11 = 1 TO 

6: POKE SCREEN+PICTURE(I)+A+II, CAPTION 
< I I+X) : NEXT I I 
HC 14505 SOUND , , , : RETURN : REM Print capti 

ons 
KK 14510 DATA 38,42,46,50,54,38,42,46.50,54,38 

, 42, 4 6,50, 54, 38, 42,46, 50, 54, 54: REM Ca 

ption locations 

OG 14520 FOR 1=0 TO 6:SETCOLOR 0,5,I:FOR 11 = 1 

TO 8:NEXT IIsNEXT I 
BO 14540 FOR 1=0 TO 8:SETCOLOR 3,15,I:F0R 11 = 1 

TO 8:NEXT IIsNEXT I 
ED 14550 FOR 1=0 TO 10:SETCOLOR l,12,I:FOR 11 = 

1 TO 8:NEXT IIsNEXT I 
PO 14560 RESTORE 14570:FOR 1=0 TO 6:READ A:POK 

E SCREEN+632+I , A: NEXT I 
HB 14570 DATA 51,35,47,50,37,0,29 
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CP 14620 

PN 14640 

BP 14650 

EA 14660 

DH 14680 

HH 14700 

BA 14720 

EL 14740 

NF 14760 



RESTORE 14640sFOR 1=1 TO 22:READ A:PO 
KE SCREEN+666+I, A:NEXT I 

DATA 52,47,0,50,37,48,44, 33, 57,0,51 ,4 
6,33, 48,0, 51 , 40, 53, 52, 52, 37, 50 
IF LENS>1 THEN SCORE=SCORE* 1 
? INT i (4/TIME) tSCORE) ; 
IF STRIG(0)=1 THEN 14680 

BOUND 0,4,8, 15sF0R 1=1 TO 3:NEXT I s SO 
UND 0,0,0,0:POKE 53248, 0:POKE 53249,0 
:POKE 704, 130 

GRAPHICS 2+16sHORIZ0=l 1 6: VERT0=PMBASE 
+ 512 + 61:H0RIZ1 = 1 1 8 : VERT 1 =PMBASE + 640 + 6 
6:POKE 53277, 3:POKE 559,46 
POKE 53256, 3:P0KE 53257, 3:FOR 1=1 TO 
20: POKE VERT0+I , ASC ( W I DEFRAME* < I ) ) : NE 
XT I:POKE 53248, HORIZ0 

FOR 1 = 1 TO 20:POKE VERT 1 + I , ASC < W IDEHA 
IR*(I)):NEXT I : POKE 53249 , HOR I Z 1 s GOTO 
13000 



~ 
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Tank 

David E. Huff and Douglas C. Huff 

With the help of this program, you may well be the first on 
your block to drive a tank. A joystick and at least 16K RAM 
are required. 

You are the commander of a sophisticated Tracking And Neu- 
tralizing Kar (TANK). Your mission? It's too secret to even 
think about — but before you can get started you must cross 
enemy territory and pick up vital information from rebel 
headquarters. 

To get that information, you must navigate your tank 
through a treacherous battlefield strewn with mines and coiled 
barbed-wire fences — and to make things even more interest- 
ing, you have to take on hostile enemy MCs (Mobile Crunch- 
ers) as well as enemy aircraft too. 

Taking Control 

The obstacle-strewn battlefield scrolls from top to bottom as 
you push your joystick forward. Should you touch any object 
while threading your way through the minefield, your tank 
will be destroyed. In addition, you must keep an eye out for 
those Crunchers as they cross the field in an attempt to ram 
your tank. You have to blast them, because they cannot be 
outrun. 

Your tank is blue. It will not appear at the bottom of the 
screen until you move your joystick to the left, right, or up. 
Enemy Crunchers are red and will attack at random from the 
sides of the screen. 

There are three sets of five fields each. As the field num- 
ber increases, more obstacles appear on the battlefield. When 
you finish a set of five battlefields, the Crunchers speed up for 
the next set. 

You start with three tanks, and you get an extra one for 
each battlefield you cross. Hitting any object (or being flat- 
tened by a Cruncher) will cost you one tank, and getting 
blown up will cost you any points you have accumulated on 
that particular attempt. Once you are destroyed you must start 
over at the beginning of the battlefield. 

You receive ten points for blasting an enemy Cruncher or 
for shooting down an aircraft, but the points are not actually 
awarded until you successfully complete a field. When you 
run out of tanks press the START key to restart the game. 
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Hints 

When maneuvering your tank, try to stay in the middle of the 
battlefield. That gives you more time to turn and aim at the 
approaching enemy vehicles. Try to get through tight spots 
quickly. If you get caught in a tight spot, you might not be 
able to turn and fire on the enemy without hitting an obstacle. 

Note that your horizontal speed is greater than your verti- 
cal speed. This gives you a chance to move away from a mine 
before turning and firing at the enemy tank. If you just tap the 
joystick, you can flip directions without moving. Remember 
that you cannot go backwards, so choose your route carefully. 

If you find yourself in a spot where there is no way to 
squeeze between two objects, shoot down an airplane. That 
will cause your tank to automatically miniaturize and enable 
you to squeeze through. But be careful. Your tank will return 
to normal size without warning just before the next airplane 
starts to cross the field. The time varies. Your tank could re- 
main small for a long time or jump right back to normal size. 
As a general rule, when your tank is miniaturized, don't stay 
close to obstacles any longer than you have to. 

Collision detection requires an overlap between objects, so 
you can get right next to mines without getting destroyed. 
Even without being miniaturized, your tank can squeeze 
through many tight spots if you are careful. 

ML, BASIC, VBI, and Characters 

The program uses a combination of machine language and 
BASIC to set up the screen, scroll the screen, and move the 
players. A vertical blank interrupt routine scrolls the playfield 
vertically, and redefined characters are used for the battlefield 
objects. A machine language subroutine sets up and moves the 
players, detects collisions, and makes the explosions appear on 
the screen. BASIC sets up the battlefields by POKEing charac- 
ters into screen memory at random locations. BASIC also dis- 
plays the score and keeps track of the number of tanks left 
and the number of playfields traversed. 

The main machine language routine is stored as a string 
of characters labeled E$. This machine language routine is 
relocatable so that it may be stored in string form. Type 
PRINT E$ and you will see the characters. 

The rest of the machine language code, located on page 6 
of memory, is not relocatable. It includes the vertical blank 
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and explosion subroutines, as well as the data for the player 
shapes. The main program uses absolute addressing to access 
this player data; thus this data must reside on page 6 in its 
proper place. Jump-to-subroutine commands are also used by 
the main program to access these page 6 routines. These 
routines must always stay at their proper places or they won't 
be found by the main program. 

There are two USR commands in the program. The one at 
line 350 jumps to a machine language subroutine that clears 
the screen memory area between playfields. BASIC was too 
slow to perform this function without delaying the game 
considerably, so the machine language routine was developed 
to clear the display memory area quickly and efficiently. 

The second USR command jumps to the main machine 
language program that moves the players on the screen. This 
routine also makes all the sounds of the tanks and checks for 
possible collisions between tanks, missiles, planes, and battle- 
field objects. When a collision is detected, the main program 
executes a jump-to-subroutine command to the explosion rou- 
tine on page 6 of memory. 

When you finish a battlefield or your tank is destroyed, the 
main machine language program returns to BASIC. Then BASIC 
will either set up a new battlefield (if one was successfully 
completed) or put you back on the same one for another try. 

Tank 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HD 10 REM TANK 

NA 20 DIM E* ( 1 1 17) 

HE 30 POKE 106, PEEK ( 106) -16:GRAPHICS 18:SETCOL 

OR 4, 12,2:SETC0L0R 2,12,2 
EL 40 POSITION 8,5:? #6 ; " TANK " : SETCOLOR 1,0,12 

sSETCOLOR 3,3,6 
CN 50 RAMTOP = PEEK < 106) : DLLO = PEEK (560) :DLHI=PEE 

K (561 ) : DMLO=PEEK (88) : DMHI=PEEK (89) : DL=DL 

L0+256*DLHI 
CO 60 OCHBASE = 256*PEEK (756) : CHBASE = RAMTOP *256 
10 70 FOR 1=0 TO 511:P0KE CHBASE+ 1 , PEEK ( OCHBAS 

E+I ) : NEXT I 
m 80 FOR 1=0 TO 63:READ D:POKE CHBASE+8+ I , D : N 

EXT I:POKE 756.RAMT0P 
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CH 90 DATA 2, 201,48, 73,74,74,74,49,2, 25, 100, 20 
2, 81, 81, 82, 140, 0,0, 36, 24, 24, 36, 0,0, 0,0, 4 
0, 16,40,0,0,0 
OB 100 DATA 0,0,0,16,56,16,0,0,0,56,68,84,68,5 

6,0,0, 255, 129, 129, 153, 153, 129, 129,255, 1 

6, 40, 84, 170, 84, 40, 16,0 
EC 110 REM PAGE 6 ROUTINES 
H6 120 FDR 1 = 1539 TO 1747:READ D:POKE I,D:NEXT 

I 
IC 130 DATA 173,120,2,201,14,208,30,173,0,6,20 

1 , 50, 240, 23, 206, 2,6, 208, 18, 169, 2, 141,2, 

6, 206 
NO 140 DATA 1,6,173,1,6,201,255,240,6,141,5,21 

2,76,98,228,238,0,6, 169, 15, 141, 1,6, 141, 

5 
OJ 150 DATA 212,160,0,177,203,56,216,233,20,14 

5,203, 160, 1 , 177,203,233,0, 145, 203, 76, 40 

,6,0,252,252 
DM 160 DATA 120,120,124,124,126,127,126,124,12 

4, 120, 120, 252, 252, , , , 63 , 63 , 30 , 30 , 62 , 

62, 126, 254, 126 
HP 170 DATA 62,62,30,30,63,63,0,0,0,16,16,16,5 

6,56, 186, 186, 254, 254, 254, 254, 254,254, 25 

4, 254, 130 
NP 180 DATA 130,0,60,24,24,152,216,254,255,254 

,216, 152, 24, 24, 60, 0, 0, 8, 1 6 , 74 , 34 , 72 , 68 , 

16, 197 
HL 190 DATA 16,4,162,20,69,18,72,18,8,0,160,18 

, 185, 144,6, 145, 205, 136,208, 248, 142,242, 

6, 162, 100 
CH 200 DATA 160,255,136,208,253,142,6,210,202, 

208, 245, 169, 1 , 141 , 30, 208, 169, 0, 160, 18, 1 

45, 205, 136, 208, 251 
HN210 DATA 173,242,6,133,205,238,250,6,96 
GF 300 PMBASE= (RAMTOP+8) *256: VP0 = PMBASE + 1 024 : S 

M=PMBASE+239 
KK310 GDSUB 600 
HH 325 REM RESTART HERE 
BS 330 POKE 1736, 0: DIF = 2: POKE 1 777 , D I F : POKE 17 

75, DIF: E=2: DEN=15: FN= 1 : TN=2 
10 350 CLEAR=USR (ADR <E*> , 256* < RAMTOP + 4 ) ) 
KM 355 REM SET UP PLAYFIELD 
KF 360 E = E+1:IF E = 8 THEN E = 3 : DEN = 20 : D I F = D I F- 1 : 

IF DIF<0 THEN DIF=0 
HB 370 TN = TN+1 : DEN = DEN + 5: POKE 1 777 , D I F : POKE 17 

75, DIF 
KK 380 FOR 1=2 TO 50:POKE SM- 1 *20 , 68 : POKE SM-I 

*20+l , 68: NEXT I 
AN 390 FOR 1=0 TO DENrSOUND , 240, 1 , 9 : R= I NT ( R 

ND (0) *950) +40: R1=INT (RND (0) *950) +40 

68 



Chapter 2 



KD 400 

PD 410 

EI 420 

PF 4 30 

CO 440 
JL 450 

BO 500 

HO 510 

NS 520 
BK 530 
AS 540 

CD 550 

II 560 

DP 570 

CI 580 

6N 590 

FA 595 

AN 600 

LB 610 

LL 620 

IL 630 

EO 640 

HE 6 50 

DO 660 



POKE SM-R, E+192: POKE SM-R 1 , E+65 : SOUND 

,0,0,0: NEXT I 

FOR 1=1 TO 15: R=INT (RND (0) *950> +40:SOUN 

D 1 . 12*1, 10, 10:POKE SM-R,l:POKE SM-R+1, 

2:NEXT I : SOUND 1,0,0,0 

POKE SM-15, 50: POKE SM- 1 6 , 33 : POKE SM-14, 

52:POKE SM- 1 7 , 52 : POKE SM-18,51 

POKE SM-1099, 38: POKE SM- 1 098, 4 1 : POKE SM 

-1097, 46:POKE SM- 1 096 , 4 1 : POKE SM-1095,5 

l:POKE SM-1094,40 

POSITION 1,1:? 4*6;"<:24 SPACES J ": REM 23 S 

PACES 

POSITION 1,1:? #6; "SCORE " ; 1 0*PEEK < 1 786 

):POSITION 14,1:? #6; "TANKS " ; TN 

D = USR (ADR <E*) +24, DL + 7, VP0, PMBASE , SM-239 

) 

SOUND 2, 0, 0, 0: SOUND 3 , , , : SOUND 1,0,0 

,0:SOUND 0,0,0,0 

IF PEEK ( 1536) =50 THEN 550 

TN=TN-1:IF TN=0 THEN 570 

POSITION 14,1:? #6; "TANKS ";TN;" " : GOTO 

500 
FN=FN+1 :POSITION 14,1:? #6;" FIELD " ; FN 
: IF FN=16 THEN 595 

POSITION 1,1:? #6; "SCORE " ; 1 0*PEEK < 1 786 
) : GOTO 350 

POSITION 14,1:? #6;"PRESS START" 
IF PEEK <53279) < >6 THEN 580 
GOTO 330 

POSITION 15,1:? #6; "A W I NNER " : GOTO 580 
FOR 1=1 TO 1117:READ D : E* < I ) =CHR* < D ) : NE 
XT I 

DATA 104, 104, 133, 204, 104, 133, 203, 169,0, 
162, 14, 160,0, 145, 203, 136, 208, 251 . 230, 20 
4, 202, 208, 246, 96 

DATA 104, 104, 133,204, 104, 133,203, 104, 13 
3,206, 104, 133, 205, 104, 141 ,255, 6, 104, 104 
, 160, 1 , 145, 203. 104, 160 

DATA 0, 145,203, 1 69 , , 1 4 1 , 5 , 2 1 2 , 1 4 1 , , 6 . 
141, 1,6, 169, 2, 141,2,6, 160, 3, 162, 6, 169. 7 
, 32, 92, 228 

DATA 169,0, 14 1 , 12, 208, 169, 62, 141 ,47, 2, 1 
69, 3, 14 1,29.208, 173,255,6, 141,7,212, 169 
, 1, 141,8 
DATA 208, 141, 9, 208, 141, 10, 208, 141, 11, 20 



S. 169, 116, 141, 192, 2 
9,52, 14 1 , 194, 2 
DATA 169,52,141,195, 
205, 133, 207, 141, 144. 
133, 208, 169, 



169, 38, 14 1 , 193,2, 16 

2, 72, 104, 169, 0, 133, 
6, 165, 206, 56, 233, 1 , 
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AK 670 DATA 141,249,6,141,1,208,141,2,208,141, 

24 4, 6, 141 , 252, 6, 141,247, 6, 141 , 25 3, 6, 167 

, 255, 141 , 243 
DN 680 DATA 6,141,3,208,141,30,208,169,6,141,2 

37,6, 160,0, 169,0, 145, 207, 145,205, 136,20 

8, 249, 230, 206 
LI 690 DATA 238,144,6,173,144,6,201,4,208,233, 

198, 206, 198, 206, 198, 206, 198, 206, 169, 201 

, 133, 205, 169, 100, 141 
KL 700 DATA 254,6,141,0,208.173,120.2,201,15,2 

40, 25, 169, 255, 141,0,210, 169, 40, 141, 1,21 

0, 173, 120, 2 
FP710 DATA 201,7,240,11,201,11,240,43,201,14, 

240, 78, 24, 144, 70, 169, 1 , 141 , 253, 6, 160, 18 

, 185, 74, 6 
ND 720 DATA 145,205,136,208,248,173,254,6,201, 

190, 24 0, 231 , 238, 254, 6, 173, 254, 6, 14 1,0,2 

08, 24, 144, 36, 240 
LI 730 DATA 185,169,2,141,253,6,160,18,185,92, 

6, 145, 205, 136, 20 8, 248, 1 73 , 254 , 6 , 20 1 , 50 , 

240, 195, 206, 254 
DN 740 DATA 6,173,254,6,141,0,208,24.144,0,24, 

144, 19, 240, 215, 169,3, 141 , 253,6, 160, 19, 1 

85, 110,6 
LA 750 DATA 145,205,136,208,248,240,0,173,252, 

6, 20 1,0, 240, 12, 201, 1, 240, 69, 20 1,2, 240, 8 

3, 201 ,3,240 
HB 760 DATA 59,173,132,2,201,0,240,4,208,88,24 

0,207, 173, 253,6, 141 ,252.6, 169,50, 141 , 14 

3,6, 141 , 4 
AA 770 DATA 210,169,200,141,5,210,173,254,6,24 

, 109, 237, 6, 141, 25 1,6, 141, 4, 208, 165,205, 

24, 105,9, 133 
AP 780 DATA 207,169,3,160,0,145,207,24,144,178 

, 240, 41 , 238, 251 , 6, 238, 25 1 , 6 , 1 73 , 25 1 , 6 , 1 

41,4, 208, 201 
FB 790 DATA 192,16,49,48,59,206,251,6,206,251, 

6, 173, 25 1,6, 141, 4, 208. 201, 60, 48, 31, 16,4 

1, 24, 144 
OB 800 DATA 85,240,163,169,0,160,0,145,207,169 

,3, 198, 207, 198,207, 198, 207, 145,207, 165, 

207, 201 , 42, 240, 2 
DN810 DATA 208,12,169,0,160,0,145,207.141,252 

,6,24, 144,47, 173,8,208, 20 1 , 2, 16. 4, 48,38 

, 240, 207 
NA 820 DATA 169,0,160,0,145,207,141,252,6,169, 

47, 141, 7, 210, 169, 136, 141, 6, 210, 173, 8, 20 

8, 201 , 3, 240 
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NA 830 DATA 13.201,5,240,36,201,9,240,48,208,0 

,24, 144, 67, 166, 205, 173, 24 6, 6, 133, 205, 23 

0,206, 169, 
BF 840 DATA 14 1,8,208,169,3,141,237,6,32,163,6 

, 198,206,24, 14 4,38,230, 206, 230,206, 166, 

205,32, 163, 6 
LH 850 DATA 198,206,198,206,24,144,95,230,206, 

230,206,230, 206, 166,205,32, 163,6, 198, 20 

6, 198, 206, 198,206,24 
PE 860 DATA 144,96,240,150,144,94,173,247,6,41 

, 1 ,208, 66, 173, 10, 210, 201, 1,240,2, 208, 1 1 

2, 173, 10,210 
NK 870 DATA 201,100,16,2,48,103,238,247,6,230, 

206, 166,205, 169, 1, 141,8, 208, 169,6, 141,2 

37, 6, 173, 10 
EB 880 DATA 210,201,30,48,249,133,205,141,246, 

6, 160, 13, 185, 129,6, 145, 205, 136, 208, 248, 

134, 205, 198, 206, 24 
U 890 DATA 144,57,144,85,174,249,6,232,224,22 

5, 176, 13, 142,249,6, 142, 1 , 208, 24, 144,38, 

240, 160, 144, 127 
DN 900 DATA 206,247,6,166,205,173,246,6,133,20 

5,230,206, 169, 0, 141, 249, 6, 141, 1, 208, 141 

,246,6, 160, 17 
PP910 DATA 145,205,136,208,251,134,205,198,20 

6,234, 173, 240, 6, 20 1,0, 208, 24, 173, 24 1,6, 

141 , 240,6, 173, 247 
FH 920 DATA 6,41,2,208,55,173,10,210,201,2,240 

, 10,208, 79, 144,63, 206, 240 , 6 , 24 , 1 44 , 7 1 , 1 

73, 10, 210 
EN 930 DATA 201,125,16,2,48,62,238,247,6,238,2 

47,6, 230,206, 230,206, 160, 18, 185, 74,6, 14 

5,205, 136, 208 
Mi 940 DATA 248,198,206,198,206,24,144,35,240, 

142, 174,244,6,232, 224, 230, 176, 11, 142,24 

4,6, 142,2, 208,24 
KE 950 DATA 144,16,144,114,169,0,141,244,6,141 

,2, 208,206,247, 6,206, 247, 6, 173,238,6,20 

1 ,0, 208, 22 
EN 960 DATA 173,239,6,141,238,6,173,247,6,41,4 

, 208,63, 173, 10, 210, 201, 3,240,8,208,91 ,2 

06,238,6 
HI 970 DATA 24,144,85,173,10,210,201,225,16,2, 

48, 76,238, 247,6, 238, 247, 6, 238, 247,6,238 

,247,6,230 
LO 980 DATA 206,230,206,230,206,160,18,185,92, 

6, 145,205, 136,208, 248, 198, 206, 198, 206, 1 

98,206, 24, 144,39,240 
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NH 990 DATA 138,174,243,6,202,224,40,144,9,142 
,243, 6, 142,3, 208, 24 , 1 44 , 20 , 1 69 , 225, 141 , 
243,6, 141, 3 
ItH 1000 DATA 208,206, 247, 6, 206,247,6*206,247,6 

,206,247,6, 173, 12,208,201 ,0, 208, 23, 173 

,4,208,201,0 
BO 1010 DATA 208,16,173,14,208,201,0,208,9,173 

, 15,208, 201 ,0,208, 2, 240, 36, 169,207, 141 

,3,210, 169, 102 
LC 1020 DATA 141,2,210,166,205,32,163,6,162,0, 

160, 255, 136,208,253,202, 208,248, 169,0, 

141 ,3,210, 206,250 
HC 1030 DATA 6,96,240,151,162,7,160,255,136,20 

8,253,202, 208,248, 169,0. 141 ,8,210,238, 

143,6, 173, 143,6 
BN 1040 DATA 141,4,210,160,255,136,208,253,173 

,143,6,201 ,255, 208,5, 169, 0, 141,5,210, 1 

69,0, 141, 1 ,210 
HO 1050 DATA 141,7,210,173,0,6,201,50,240,4,16 

9,0,240, 194,96 
BC1100 REM DISPLAY LIST DATA 
JP1110 FOR 1=0 TO 21:READ D:POKE DL+I , D : NEXT 

I 
EJ1120 POKE DL+8,PMBASE/256:P0KE DL+4 , DMLO+20 

:POKE DL+5,DMHI : POKE DL+22 , DLLO: POKE D 

L+23, DLHI : RETURN 
W1130 DATA 112,112,112,66,0,0,103,0,0,39,39, 

39,39,39,39,39,39,39,39, 39,7,65 
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Dots 

Eric Saper 



"Dots" is a computer version of the popular pencil-and- 
paper strategy game that kids play. It's designed for two 
players; joysticks are required. 

If you haven't played dots before, you will probably think 
there isn't much to the game. The rules are few and simple. 
Two players take turns drawing horizontal or vertical lines be- 
tween two adjacent dots on the playing field. The object of the 
game is to close off more boxes than your opponent. When 
you close a box, it's identified with your color. Sound simple? 
It is. But there is a lot of strategy involved. Toward the end of 
the game, a wrong move may cost you the game. 

You have to be careful not to draw the third of four lines 
needed to complete a particular box, because your opponent 
can then win that box by drawing the final line. Sooner or 
later, you will have to give away boxes because there will be 
no more free space available. 

Whenever a player closes a box, he goes again. That 
makes it possible to win several boxes in one turn. Toward the 
end of the game, when there are no free spaces left, it's im- 
portant to choose lines that will give your opponent the fewest 
boxes. But you must be careful, because giving the fewest is 
not necessarily the best. 

How Big? 

The program requires about 8K to load and from 10K to 12K 
to run, depending on the dimensions of the playing field. It 
also requires two joysticks. 

When you run the program, you will be asked to supply 
the horizontal and vertical dimensions of the playing field. 
The smallest either dimension can be is 5; the largest is 20. A 
5X5 board (16 boxes) will take only a few minutes to play, 
while a 20 X 20 board (361 boxes) may require an hour or 
two. A good-sized board is 10 X 10 (81 boxes) or 12 X 12 
(121 boxes). The dimensions do not have to be the same, al- 
though it is usually preferred. 

After dimensions have been specified, the program draws 
the board and puts a text window at the bottom of the screen. 
The information in the window gives each player's score and 
the number of remaining boxes. An asterisk will indicate each 
player's turn. 
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Assume you're player 1 and that it's your turn. Press your 
fire button; the text window disappears and the screen colors 
change. One of the dots will be white; that's the cursor dot. 
Push your joystick and the cursor dot will move left-right or 
up-down. 

Move the cursor to one end of the line you want to draw. 
Press your fire button and the cursor will turn red, indicating 
that you are ready to make your move. With the cursor red, 
push your joystick in the direction you wish the line to be 
drawn, relative to the cursor. If you decide not to draw from 
that point, press your button again and the cursor will turn 
white once more. 

When you draw the line, a sound will be heard. If you try 
to draw your line over another line or off the playing field, a 
buzzer will sound and you can try again. When you close a 
box, it will fill in with your color. Player 1 's boxes will be 
white, while player 2's boxes will be red. 

After every move, the text window will reappear. Remem- 
ber, if you have just gained a box, it will still be your turn. 

At the end of the game the final scores are displayed, 
with flashing stars surrounding the winner's score. If it is a tie 
game, both scores will be surrounded. If you want to play 
again, press the START button. 

Dots 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

NE 10 ? " (CLEAR} ": POSITION 16,8:? " DOTS " : POS I T 

ION 2,14:? "WHAT ARE THE MAXIMUM DIMENSI 

ONS<2 TAB} (5, 5) - (20, 20) " ; : INPUT XM,YM 
BN 20 IF XM<5 OR XM>20 OR YM<5 OR YM>20 THEN 1 


GH 30 DIM A* <4) , P < XM, YM) , S < 1 > 
PG 40 FOR 1=0 TO XM:FOR J = TO YM : P < I , J ) =0 : NE X 

T J:NEXT I 
EH 50 X0=INT (80/ (XM+1 ) ) : Y0=INT < 48/ ( YM+ 1 ) ) : T0= < 

XM-1 ) * < YM-1 ) 
EB 60 XS=<80-XM*X0+X0) /2-X0-l:YS=(48-YM*Y0 + Y0) 

/2-Y0-1 
AH 70 GRAPHICS 21:SETCOLOR , , : SETCOLOR 1,0, 

14:SETCOLOR 4,7,4 
HI 80 COLOR l:FOR X = l TO XM:FOR Y= 1 TO YM 
DK 90 PLOT X*X0 + XS, Y*Y0 + YS: NEXT Y:NEXT X 
HK 100 COLOR 2:PL0T X 0+XS , Y0+YS : COLOR 1:X=0:Y = 
0:S=0:T=0:S(0)=0:S(1)=0 
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KD 1 10 



NB 120 

GD 130 

JC 135 

ID 140 

IH 145 

ED 150 

AO 155 
PF 160 
IS 170 
BG 180 
DO 190 
GG 200 
OF 210 
DD 220 
GJ 2 30 
BI 240 
DL 250 
GM 260 
BH 270 
M 280 
CL 290 
GH 300 
AH 310 
AC 320 
IE 321 
GH 322 
PK 330 
AL 340 
GF 350 
IK 360 
PI 370 
IH 380 
BH 390 
DE 400 
FE 4 10 
OL 420 
AH 430 
FG 440 
BO 450 
AO 460 
FI 470 
BN 480 
DK 490 
FB 500 



GRAPHICS 
PLAYER 1 
S ( 1 ) : GOT 
? " PLAY 
S " ; S < 1 ) 
7 : ? "BO 
POKE 77, 
IF STRIG 
IF STRIG 
7 : GRAPH 
1,0, 1 4 : S 
COLOR 2: 
M=STICK ( 
IF STRIG 
IF MO 14 
Y=Y-1 : IF 
GOTO 290 
IF MO 7 
X=X+1 : IF 
GOTO 290 
IF M <> 1 3 
Y=Y+1 : IF 
GOTO 290 
IF MO 11 
X=X-1 : IF 
SOUND 
COLOR 
COLOR 
SOUND 
IF STRIG 
GOTO 160 
SOUND 0, 
COLOR 3s 
SOUND 0, 
IF STRIG 
M=STICK< 
IF STRIG 
IF MO 14 
Y=Y-1 : IF 
C=4: GOTO 
IF M<>7 
X=X+1 : IF 
C=3: GOTO 
IF MO 13 
Y=Y+1: IF 
C=2: GOTO 
IF MO 11 
X=X-1 : IF 
C=l : GOTO 



37: POKE 7 
HAS ";S<0> 

O 130 

ER 1 HAS " : 

XES REMAINI 


(S)=l THEN 
<S)=0 THEN 
ICS 53:SETC 
ETCOLOR 2,3 
PLOT (X+l)* 
S) : X 1=X : Yl= 
(S)=0 THEN 
THEN 210 
Y<0 THEN Y 



2, 1 : IF S=0 THEN ? " * 
:? " PLAYER 2 HAS " ; 

S (0) : ? " tPLAYER 2 HA 

NG = ";T8-T; 

140 

145 

OLOR 0, 0, 0: SETCOLOR 

,8:SETCOLOR 4,7,4 

X0+XS, (Y+1)*Y0+YS 

Y 

330 

= YM-1 



t 

1 : 
2: 
0, 



THEN 240 
X>XM-1 THEN X=0 

THEN 270 

Y>YM-1 THEN Y=0 

THEN 160 

X<0 THEN X=XM-1 
100, 10, 10 
PLOT (Xl+1) 
PLOT (X+l ) * 
0,0,0: FOR I 
<S)=0 THEN 



IX0+XS, (Y1+1)*Y0+YS 
X0+XS, ( Y+l ) *Y0+YS 
=1 TO 30: NEXT I 
321 



50, 10 
PLOT 
0,0,0 
(S) =0 
S) : X = 
(S) =0 
THEN 
Y<0 
530 
THEN 
X>XM 
530 
THEN 
Y>YM 
530 
THEN 
X<0 
530 



, 10 

(X+1)*X0+XS, (Y+1)*Y0+YS 



THEN 
X 1 : Y=Y 

THEN 

420 
THEN 5 

450 

-1 THE 



360 
1 
3 10 

10 



N 510 



480 
-1 THEN 510 



370 
THEN 5 



10 
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ND510 SOUND 0, 60, 12, 10: FOR 1 = 1 TO 200:NEXT Is 

SOUND 0.0,0,0 
GK 520 GOTO 370 
HB530 A*="0000" : At ( 5-LEN (STR* ( I NT (P ( X 1 , Y 1 ) ) ) ) 

, 4) =STRt (INT(P(X1,Y1) ) ) 
AH 540 IF A*(C,C)="1" THEN 510 
KE 550 A* (C, C) =" 1 " : P (X 1 , Yl ) =VAL (A*) 
DN 560 IF C<3 THEN C = 2-C:BOTO 5S0 
HC 570 C = 6-C 

PJ 580 P(X,Y)=P(X,Y)+INT(10"C + 0. 1 ) 
MB 590 COLOR 1 : PLOT < X 1 + 1 > * X0+ XS , ( Y 1 + 1 ) * Y0+YS : 

DRAWTO (X+l ) IX0+XS, (Y+l ) *Y0+YS 
AF 600 FOR 1 = 100 TO STEP -5 

(U610 SOUND 0, I , 2, 10:NEXT I : SOUND 0,0,0,0 
PG 620 B = 0:IF X = X1 THEN 720 
LK 630 IF Y = THEN 670 
CH 640 K = 0: C = 4: ZX = X 1 : ZY = Yi : GOSUB 8 1 : Z X = X : Z Y = Y 

:GOSUB 810: IF XKX THEN C = 3:GOTO 660 
EH 650 C=l 
DD 660 ZX=X1 : ZY=Y1-1 : GOSUB 810: IF K = 3 THEN C= 1 

: GOSUB 840 
FL 670 IF Y = YM THEN 1030 
CE 680 K = 0:C = 2: ZX = X1 : ZY = Y1 : GOSUB 8 1 : Z X = X : Z Y = Y 

: GOSUB 810: IF XKX THEN C = 3:GOTO 700 
FA 690 C=l 
CN 700 ZX = X1 : ZY = Y1 + 1 : GOSUB 810:IF K = 3 THEN C = 2 

: GOSUB 840 
JF 710 GOTO 1030 
LJ 720 IF X = THEN 760 
CF 730 K = 0:C=1 : ZX = X1 : ZY = Y1 : GOSUB 8 1 : Z X = X : Z Y = Y 

:GOSUB 810: IF YKY THEN C = 2:GOTO 750 
EP 740 C = 4 
DF 750 ZX = X1-1 : ZY = Y1 : GOSUB B10:IF K = 3 THEN C = 3 

: GOSUB 840 
FJ 7 60 IF X = XM THEN 1030 
CP 770 K = 0:C = 3: ZX = X1 : ZY = Y1:G0SUB 8 1 : Z X=X : Z Y=Y 

: GOSUB 810: IF YKY THEN C = 2:GOTO 790 
FD 780 C = 4 
DI 790 ZX=X1+1 : ZY=Y1 : GOSUB 810:IF K = 3 THEN C = 4 

: GOSUB 840 
JF 800 GOTO 1030 
BG 810 At="0000":At (5-LEN (STR* (INT(P(ZX,ZY)>>> 

,4)=STRt (INT(P(ZX,ZY) ) ) 
KB 820 IF A* (C, C) = " 1 " THEN K = K+1 
HL 830 RETURN 
NI 840 B=l : S (S> =S (S) +1 : T = T+1 : COLOR S + 2:POKE 76 

5,S + 2 
FA 850 FOR 1=0 TO 200 STEP 10:SOUND 0,1,10,10: 

NEXT I 
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HO 860 FDR 1=200 TO STEP -10:SOUND 0,1,10,10 

:NEXT I 
LD 870 ON C GOTO 880,910,940,970 
AD 880 IF XKX THEN Z=Xl+l:GOTO 900 
OH 890 Z = X+1 
LB 900 PX=Z*X0+XS+1 : PY=Y*Y0+YS+1 : PLOT PX,PY:PO 

SITION PX, <Y+1 ) *Y0+YS-1 : GOTO 1000 
AA910 IF XKX THEN Z=Xl+l:GOTO 930 
OS 920 Z = X + 1 
GH 930 PX = Z IX0 + XS+1 : PY= ( Y+l ) *Y0+YS+1 : PLOT PX,P 

YsPOSITION PX, (Y+2) *Y0+YS-1 : GOTO 1000 
AJ 940 IF YKY THEN Z=Yl+l:GOTO 960 
OK 950 Z = Y+1 
LH 960 PX=X*X0+XS+1 : PY=Z*Y0+YS+1 : PLOT PX,PY:PO 

SITION PX, (Z + l > *Y0+YS-1 : GOTO 1000 
AP 970 IF YKY THEN Z=Yl+l:GOTO 990 
ON 980 Z = Y+1 
DI 990 PX= (X + l ) *X0+XS+1 : PY=Z*Y0 + YS + 1 : PLOT PX,P 

Y:POSITION PX , ( Z +1 ) * Y0+YS-1 
KK 1000 XIO 18, #6, 0, 0, "S" : PLOT PX,PY:DRAWTO PX 

+X0-2, PY 
LJ 1010 IF T0-T = THEN 1060 
KD 1020 RETURN 
HE 1030 IF B=l THEN 110 
JJ 1040 S= NOT S 
JB 1050 GOTO 1 10 
IB 1060 GRAPHICS 18 
LC 1070 READ N, T 
DD 1080 IF N = -l THEN 1110 
OE 1090 SOUND 0,N, 10, 10:SOUND 1 , N + 2 , 1 , 1 : SOUN 

D 2, N+4, 10,10 
OA1100 FOR 1 = 1 TO 20*T:NEXT I : GOTO 1070 
KB1110 SOUND 0, 0, 0, 0: SOUND 1 ,0,0,0: SOUND 2,0, 

0, 
BH1120 POSITION 3,1:7 #6;"final score is" 
AH 1130 POSITION 2,5:? #6; "PLAYER 1 HAS ";S(0) 
AN1140 POSITION 2,8:7 *6;"PLAYER 2 HAS " ; S < 1 > 
OK 1150 IF S(0)>=S<1) THEN P = 5:GOSUB 1220 
OH 1160 IF S(0)<=S<1) THEN P = S:GOSUB 1220 
BO 1170 FOR 1 = 1 TO 50: IF PEEK ( 53279 ) =6 THEN 12 

10 
OB 1180 NEXT I:SETCOLOR 2,0,0 
CA1190 FOR 1 = 1 TO 50: IF PEEK ( 53279 ) =6 THEN 12 

10 
CD 1200 NEXT I:SETCOLOR 2„9,4:GOTO 1170 
JO 1210 CLR :RESTORE 3130:GOTO 10 

DD 1220 POSITION 0,P-1:7 * a ■ " HnMMOBBPBM^BHB 
:POSITION 0.P:? #6;"D" 
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GH 1230 POSITION 19, P:? #6 ; "D" : POS I T I ON 0,P+1: 

? #6; "HBaanm^BBBEBB— B" 
YM 1240 RETURN 

6E 2075 FOR 1 = 1 TO 300:NEXT I 
BC3130 DATA 162,1,144,1,128.1,144,2,128,1,162 

,3,81,3,-1,0 
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Reversi 

Jose R. Sudrez 



"What's this?" you say, "Not another Reversi program!" 
Yes, it is — but this one features full-color graphics, playing 
chips that flip over right before your eyes, replay options, 
and a computer opponent that will truly make you think. 
The program requires 24K memory, 32K if you use a disk 
drive, 

"Reversi" is played on an 8 X 8 grid. The playing pieces are 
two-sided disks, black on one side and white on the other. Ini- 
tially, four pieces are placed on the four center squares, two 
showing black and two showing white, in an X pattern. Black 
starts, and the object is to capture as many of the other play- 
er's pieces as possible. 

You do this by bracketing one or more of your opponent's 
chips with your chips, and then flipping them over to your 
color. This can be done in any direction — vertically, hori- 
zontally, or diagonally. 

A move is legal only if it flips one or more of the other 
player's pieces. If you have no legal moves, you must pass. 
The game ends when the board is full or when no more 
moves are possible. At that time, the player with the most 
pieces wins. 

Joysticks or Keyboard? 

Before displaying the game board, the program asks if you 
want to use joysticks or the keyboard to enter moves. Joysticks 
(plugged into ports 1 and 2) are the better choice, especially 
for a two-player game. But for keyboard fans, traditional row- 
column entry is also available. 

If you opt for the keyboard, enter a letter and a number 
for each move. You may enter either the letter or the number 
first; the computer will figure out what you mean. To pass, 
enter the letter P instead of coordinates. 

With joysticks, move the cross-shaped cursor to the 
square you want to capture; then press the trigger. To pass, 
move the cursor over the word PASS (at the right side of the 
board) and press the trigger. The black pieces are always 
moved by the joystick in port 1; the white pieces are ahuays 
moved by the stick in port 2. Remember this when playing 
against the computer. 
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One or Two Players 

Once you select your preferred entry method, there is a short 
wait while the computer initializes the game board. When the 
board appears, press SELECT to choose a one- or two-player 
game, and use the OPTION key to toggle the color of the 
computer's pieces. Press START to begin the game. 

The computer acts as referee and piece-flipper whether 
you play against it or against another player. It does not allow 
illegal moves or passes. After a game is completed, the totals 
are displayed, and the winner declared. 

You may then review the game just played by engaging 
one of the two replay options. AUTOMATIC REPLAY shows 
you the game over, move by move; just sit back and watch as 
it develops. MANUAL REPLAY does much the same thing, 
except that after each move the computer will pause until you 
press the trigger (if using joysticks) or a key (if using the key- 
board). To choose a replay option, press SELECT to cycle 
through the choices until you reach the option you want. 
Then press START. These functions should help you locate 
poor moves and improve your game; you can review the game 
as many times as you desire. 

Setting Things Up 

The program begins with a jump to line 14000. Lines 14000- 
14030 initialize the important variables and tie together all the 
initialization subroutines. Lines 9000-9110 are the title dis- 
play, and lines 9500-9600 display the 10- or 14-second board- 
preparation message. 

Lines 1000-1140 then move and modify the character set. 
Take a look at the expression in line 1005. Variable FAC is set 
to if you chose the keyboard and to 255 if you chose joy- 
sticks. This means that the character set is moved in comple- 
mentary form (inverse video) if you choose joysticks. This 
unorthodox font permits some interesting and pleasing graphics. 

If joysticks are selected, then player/missile graphics are 
handled next at lines 2500-2540. All four players and one 
missile are used. Player is the cursor. Player 1 is the word 
PASS mapped directly from the character generator. Player 2 
is the blue field. Player 3 and missile 3 border the playfield so 
that no green background shows except on the board. 

The board is sent to the screen by lines 15000-15100. All 
the characters embedded in those lines were redefined with 
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box-making control characters normally unavailable in 
GRAPHICS 1 and 2. They form a nice grid when printed out. 
Lines 15060-15070 print the coordinate system for the key- 
board user. 

With initialization completed, control passes to lines 
8540-8670 where the console keys are read and the selected 
options displayed. Once the player presses START, the main 
loop at lines 8000-8430 takes over. This master loop has con- 
trol over each full game. It calls the scanning and piece- 
flipping module (1600-1720); the large network of 
computer-intelligence subroutines (3300-5420); the animation 
subroutine (6990-6995); score keeping and move storing 
(3000-3150); illegal-move correction (7100-7130); and mes- 
sage printing (7200-7220). 

Artificial Intelligence 

You will find that the computer is a challenging opponent. 
The game board is kept internally as array TBL. The computer 
assigns a strategic value to each square on the board, and it 
keeps those values in array STR. They are not static values, 
however, for they change as the game progresses. The value 
of a prospective move is based largely on the dynamic value 
of the square, and (to a much smaller degree) on the number 
of pieces flipped. Corners and edges have the highest values, 
while the adjacent squares forming a bridge to these have the 
lowest values. 

The computer is very careful when moves are made on 
the edges, calling special subroutines to handle them. The 
value of the number of pieces flipped jumps drastically during 
the last few moves of the game — and that's when many games 
are won or lost. 

Flipping the pieces smoothly adds to the attractiveness of 
the display and is quite simply done. Take a look at line 
15010. ANIM$ is filled with a series of control characters. 
These characters have been redefined so that each is a frame 
of the flipping action. The characters so reshaped are now 
ellipsoids with progressively shorter minor axes — two of them 
are just horizontal lines. When these characters are printed out 
rapidly at the same screen location, they make a little movie of 
a flipping chip. Color switching is accomplished by using the 
inverse-video incarnations of the same characters. 
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Reversi 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

IP 10 GOTO 14000 

PN 1000 POKE 106, PEEK C 106) -C4: GRAPHICS 17: POKE 
53774, 1 12: POKE 16,64:G0SUB 9500:I=(PE 

EK < 106) +C2) *256 
OD 1005 FOR J = TO 511:P0KE I +■ J , ABS ( F AC-PEEK < 5 

7344+J ) ) : NEXT J 
ED 1010 SET=I:GOSUB 9600-.TRAP 1130:RESTORE 101 

00 
EI 1020 READ LIST1 , LIST2: FOR J=a TO C7:BYTE = PE 

EK<LISTl+J+57 344) :POKE LIST2+J+I , BYTE: 

NEXT J: GOTO 1020 
HH1130 RESTORE 10110:FOR J=0 TO C7:READ BYTE: 

POKE 80+J+I , BYTE: READ BYTE: POKE CB+J+I 

,BYTE:POKE 480+ J + I , : NEX T J 
OF 1140 FOR K = C1 TO C5:READ LIST1-.FOR J=D TO C 

7:READ BYTE:POKE L I ST 1 +• J + I , BYTE : NE XT J 

:NEXT K:RETURN 
JC 1600 FLIP = 0: 0FF = C9* (NDW = C1 ) : FOR VD=-C1 TO C 

l:FOR HD=-C1 TO CI: IF VD = AND HD=0 TH 

EN NEXT HD 
GO 1610 TRAP 1720: X = J : Y=I : DX = X : DY = Y: CFL = 
GC 1630 IF TBI_ < Y+-VD, X+HD) =OTHER THEN CFL = C1:X = 

X+HD: Y=Y+VD: GOTO 1630 
LE 1640 TRAP 40000: IF TBL < Y +VD , X +HD ) ONOW OR C 

FL=0 THEN 1720 
LM 1670 IF PASS = C1 THEN FLIP = Cl:POP : POP : RETU 

RN 
CH 16S0 DX = DX+HD: DY = DY + VD: TBL (DY , DX > =NOW: FOR L 

OOP=Cl+OFF TO C9+0FF: K=C1 /CI /CI 
IF 1690 POSITION DX*C2 + C2, DY*C2 + C2: ? ttS;ANIM*< 

LOOP, LOOP) : NEXT LOOP:SOUND 0,60, 12, C8: 

FLIP=FLIP+C1 
FH 1700 SOOND 0,0,0,0: IF DXOX OR DYOY THEN 1 

680 
HC1720 NEXT HD:NEXT VD-.RETORN 
NL1740 FOR I=C2 TO 16 STEP C2:POSITION C2 , I : ? 

AN 1750 N0W = C1 : 0THER = C2: PL1*=" C J 3 bl ack i , 3 move 

fz> " : pl2*=" <:B:.3G^n5cii3rra3E<:^} ■• 

GH 1752 RESTORE 10000:FOR 1=0 TO C3:FOR J=0 TO 
C3: READ K: STR < I , J ) =K: STR < C7-I , J ) =K: ST 

R(I,C7-J)=K:STR<C7-I,C7-J)=K 
EK 1754 TBL(I,J)=0:TBL<C7-I,J)=O:TBL<I,C7-J)=0 

: TBL (C7-I , C7-J ) =0: NEXT J:NEXT I : HOR=C4 

: VER=C4 
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LP 1760 
KH 1770 
II 2000 

Iff 2500 

ND 2510 
EG 2520 



ML 2530 
JF 2540 



KF 2600 

DF 2610 
GG 2630 

FA 2640 

KF 2650 
DF 2660 
KP 2670 
OE 3000 

JH 30 10 
Cfi 3145 

BJ 3 150 
KK 3200 

GD 3203 

CN 3205 

JD 32 10 
AE 3212 

PA 32 14 



NB 32 16 



PO 
C 
TB 
C3 
RE 
O 

: R 
PM 
PO 
12 
MI 
2 : 
FO 
: P 
J : 
DA 
FO 
R 

19 
FL 
CI 
TR 
IF 
Y + 
TR 
FL 
NE 
IF 
RE 
SF 
: W 
WS 
I F 
EN 
GA 
PO 
C3 
FL 
TB 
IF 
72 
NE 
PO 
F 

DF 
FL 
F 
GO 



BITION C 
8,10:? # 
L <C3, C3> 
, C4) = NOW 
STORE 10 
15: READ 
ETURN 
BASE=PEE 
KE 53277 
S: P2=P1 + 
S=P0-128 
RESTORE 
R I=C1 T 
OKE J+Pl 
K=K+C7: N 
TA 384,2 
R 1=38 T 
I=D TO 1 
2:NEXT I 
IP=0: FOR 
: IF VD=0 
AP 2650: 

TBL ( Y + V 
VD: FL=FL 
AP 40000 
IP=FLIP+ 
XT HD:NE 

STR < Y, X 
TURN 

L=0: IF N 
SCR=WSCR 
CR=WSCR+ 

BSCR=0 

SFL=C2 
ME <M> = I 
SIT ION O 

IP=0: FOR 
L ( I , J ) =0 

FL IP>0 
20: GOSUB 
XT J : NEX 
KE 705,4 
NOW=Cl T 
=C10: GOS 
=SFL+C1 : 
SFL=C2 T 
TO 8 4 



8, C8: ? #S; " -CHJ St J 3- " : POS I T I ON 
S; " ( J }Q{H> " : BSCR=C2: WSCR=C2 
=0THER:TBL(C4,C4)=0THER:TBL< 
: TBL <C4, C3) =NOW: RETURN 
200:FOR 1=0 TO C1:F0R J=C5 T 
K: DELTA < J , I > =K: NEXT J:NEXT I 



K ( 106) -C8: POKE 54279 , PMBASE : 

,C3:P0=PMBASE*256+512:P1=P0+ 

128: P3=P2+128 

: POKE 559, 46: K=39: POKE 623, C 

2530 

O C4:READ LIST1-.F0R J=0 TO S 

+ K,PEEK(57344+LIST1+J) -.NEXT 

EXT I: POKE 53258, CI 

64, 408, 408 

O 69: POKE P2 + I , 255 : NE X T I : FO 

19:POKE P3+I , 255: POKE MIS+I, 

:POKE 53260, 192: RETURN 
VD=-C1 TO Cl:FOR HD=-C1 TO 
AND HD=0 THEN NEXT HD 

X=J:Y=I:FL=0:CFL=FL 

D, X+HD) =OTHER THEN X=X+HD:Y= 

+C1: GOSUB 2660: GOTO 2630 

:IF TBL (Y+VD, X+HD) =NOW THEN 

FL:IF CFL THEN DFL=C1 

XT VD:RETURN 

)=-200 THEN CFL=C1 

0W=C1 THEN BSCR=BSCR+FLIP+C1 

-FLIP:GOTO 3145 

FLIP+C1 :BSCR=BSCR-FLIP 

OR WSCR=0 OR BSCR+WSCR=64 TH 



+J/C10: 



M=M+C 1 : RETURN 
ttS; 



EVOLUftTIHG PB55 



IF 



1=0 TO C7:FOR J=0 TO C7 

THEN GOSUB 1600 
THEN POP : POP : PASS=0 : GOSUB 

3220:GOTO MAINLOOP 
T I : PASS=D: GOSUB 7220 
2:LINE$="{8 SPACESJITEEE 
HEN LINE$="{8 SPACES>pass 
UB 7200: GAME «M> =-Cl : M=M+C1 
H0R=C4 : VER=C4: POKE 705,144 
HEN 8500 



: 1 

II 

: S 

: I 
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LINE*=" £3 SPACES>PI?I^<:il>n!^<:PI>nlEIF: ,, : IF 
N0W=C1 THEN LINE*="C3 SPACES J you <. , >mu 

st{,}play" 

DF=C12:GOSUB 7200:RETURN 

FLIP=D: MAX=-210: FDR 1=0 TO C7:FOR J = 

TO C7:IF TBL<I.J)=0 THEN GOSUB 2600:GO 

SUB 3500 

NEXT J:NEXT I : RETURN 

IF FLIP=0 THEN RETURN 

IF STR(I,J)=-70 OR STR(I,J)=45 THEN GO 

SUB 3600+I*C10+J 

IF BSCR+WSCR>59 THEN K=FLIP:GOTO 3520 

K=FLIP*C5+STR < I , J) : IF DFL THEN DFL=0:I 

F STR ( I , J ) < >500 THEN K=-200 

IF K>MAX THEN MA X =K : HOR = J : VER = I 

IF K=MAX THEN IF RND(O)<0.4 THEN HOR = J 

: VER=I 

RETURN 

X=C2:HD=C1 : GOTO 3700 

X=C5:HD=-C1 : GOTO 3700 

Y=C2: VD = C1 : GOTO 3750 

Y=C2: VD=C1 : GOTO 3750 

Y=C5: VD=-C1 : GOTO 3750 

Y=C5: VD=-C1 : GOTO 3750 

X=C2:HD=C1 : GOTO 3700 

X=C5: HD=-C1 : GOTO 3700 

IF TBL<I,X)=0 AND TBL < I , X +HD ) =NOW THEN 
STR( I , J ) =-70: RETURN 

TRAP 3730: IF TBL ( I , X ) =NOW THEN X=X+HD: 

GOTO 3710 
KC 3720 TRAP 40000:IF TBL ( I , X ) =OTHER THEN STR < 

I , J) =-70: RETURN 
JB 3730 STR < I , J) =45: RETURN 
NK 3750 IF TBL(Y,J)=0 AND TBL ( Y + VD , J ) =NOW THEN 

STR< I, J) —70! RETURN 
PL 3760 TRAP 37B0:IF TBL(Y,J)=NDW THEN Y = Y + VD: 

GOTO 3760 
KJ 3770 TRAP 40000: IF TBL (Y, J) =OTHER THEN STR < 

I , J ) =-70: RETURN 
JL 3780 STR ( I , J) =45: RETURN 
(ID 3800 IF VER + C2<C7 THEN IF STR ( VER + C2 , HOR ) >0 

THEN STR (VER+C2, HOR) =-55 
IC3810 IF VER-C2>0 THEN IF STR ( VER-C2 , HOR ) >0 

THEN STR ( VER-C2, HOR) =-55 
GE 3820 IF STR (VER + C1 , HOR) =-55 THEN STR(VER + C1 

, HOR) =80: GOSUB 3850 
GL 3830 IF STR ( VER-C1 , HOR) =-55 THEN STR(VER-C1 

, HOR) =80: GOSUB 3870 
KP 3840 RETURN 
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DG 3220 


NC 3230 


flB 3300 


CH 3400 


BN 3500 


LB 3510 


U 3512 


NO 3515 


LH 3520 


CI 3525 


KL 3530 


II 3601 


LN 3606 


JH 3610 


KD 3617 


NB 3660 


NI 3667 


IP 3671 


HE 3676 


ND 3700 


NK 3710 
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PN 3850 



BG 3860 
AJ 3870 



BI 3880 
HA 3900 

JO 3910 

GS 3920 

GN 3930 

LA 3940 
PP 3950 



BH 3960 
AL 3970 



BJ 3980 
AN 4000 

PO 4010 
DA 4020 

AK 4025 

EJ 4030 

GE 4035 
EO 4040 

GH 4 04 5 
CK 4050 
FB 4 100 
DN 4 1 1 

BH 4 1 1 5 

EJ 4 120 

GE 4 125 
EO 4 130 



TRAP 3 
(VER+C 

THEN 
TRAP 4 
TRAP 3 
(VER-C 

THEN 
TRAP 4 
IF HOR 

THEN 
IF HOR 
THEN S 
IF STR 
R + Cl ) = 
IF STR 
R-Cl ) = 
RETURN 
TRAP 3 
(VER, H 

THEN 

TRAP 4 
TRAP 3 
(VER, H 

THEN 
TRAP 4 
IF HOR 
C7 THE 
IF HOR 
IF TBL 
O 4600 
IF TBL 

4600 
K=STR ( 
AND K< 
IF K = - 
K = STR ( 
AND K< 
IF K = - 
GOSUB 
IF VER 
IF TBL 
O 4500 
IF TBL 

4500 
K = STR < 
AND K< 
IF K=- 
K = STR < 
AND K< 



860:IF TBL (VER+C1 , HOR) =0 AND TBL 
2,H0R)=0 AND TBL ( VER+C3 , HOR ) =NOW 
STR (VER+C 1, HOR) =-55 
0000: RETURN 

880: IF TBL ( VER-C1 , HOR) =0 AND TBL 
2,H0R>=0 AND TBL ( VER-C3 , HOR ) =NOW 
STR ( VER-C 1 , HOR) =-55 
0000: RETURN 

+C2<C7 THEN IF STR < VER , HOR+C2 ) >0 
STR(VER,HOR+C2)=-55 

-C2>0 THEN IF STR ( VER , HOR-C2 ) >0 
TR (VER, HOR-C2) =-55 

(VER, HOR+C1 > =-55 THEN STR(VER,HO 
80:GOSUB 3950 

(VER, HOR-C1 ) =-55 THEN STR(VER,HO 
80:GOSUB 3970 



960: IF TBL ( VER, HOR+C1 ) =0 AND TBL 
0R+C2)=0 AND TBL (VER, H0R+C3) =NOW 
STR(VER,HOR+Cl )=-55 
0000: RETURN 

980: IF TBL (VER, H0R-C1 ) =0 AND TBL 
0R-C2)=0 AND TBL (VER,H0R-C3> =N0W 
STR (VER, HOR -CI ) =-55 
0000: RETURN 

>0 AND HOR<C7 AND VER>0 AND VER< 
N RETURN 

=0 OR HOR=C7 THEN 4100 
(VER, HOR+C1 ) =NOW THEN HD=-C1:G0T 

(VER, HOR-C1 ) =NOW THEN HD=C1:G0T0 

VER, HOR+C1 ) : IF K<500 AND KO-70 
>-55 THEN STR (VER, HOR-t-Cl ) =-K 
55 THEN STR ( VER, HOR+C1 ) =-60 
VER, HOR-C1 ) : IF K<500 AND KO-70 
>-55 THEN STR (VER, H0R-C1 ) =-K 
55 THEN STR (VER, HOR-C1 ) =-60 
5110: RETURN 

=0 OR VER=C7 THEN K=0:GOTO 4200 
( VER+C1 , HOR) =NOW THEN VD=-Cl:GOT 

(VER-C1 , HOR) =NOW THEN VD=Cl:GOTO 

VER + C 1 , HOR) : IF K<500 AND KO-70 
>-55 THEN STR (VER+C1 , HOR) =-K 
55 THEN STR ( VER+C1 , HOR) =-60 
VER-C1 , HOR) : IF K<500 AND KO-70 
>-55 THEN STR ( VER-C1 , HOR) =-K 
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BH4135 IF K=-55 THEN STR ( VER-C1 , HOR)=-60 

CII4140 GOSUB 5310:RETURN 

NF 4200 STR ( VER, ABS (HOR-C1 ) ) =K: STR (ABS CVER-C1 ) 

, HOR) = K: STR (ABS(VER-Cl) , ABS (HOR-C1 ) ) =K 

-30-200* (K=300) : RETURN 
m 4500 K=VER+VD: TRAP 4140 
KP4510 IF TBL (K, HOR) =OTHER THEN K=K+VD:GOTO 4 

510 
Elt 4520 TRAP 40000: IF TBL ( K , HOR ) < >0 THEN RETUR 

N 
EH 4540 Y=K+VD:TRAP 4570: IF TBL(Y,HOR)=0 THEN 

TRAP 40000: BOTO 4570 
FD 4550 IF TBL ( Y, HOR) =NOW THEN Y=Y+VD:GOTO 455 


DC 4560 TRAP 40000: IF TBL ( Y , HOR ) =OTHER THEN RE 

TURN 
FG 4570 STR (K, HOR) =500+100* (STR (K, HOR) < >500) : R 

ETURN 
CM 4 600 K = HOR + HD: TRAP 4140 
KH4610 IF TBL (VER, K) =OTHER THEN K=K+HD:GOTO 4 

610 
CP 4620 TRAP 40000: IF TBL(VER,K)<>0 THEN RETUR 

N 
EA 4640 Y=K+HD:TRAP 4670: IF TBL ( VER , Y ) =0 THEN 

TRAP 40000: GOTO 4670 
EL 4650 IF TBL (VER, Y) =NOW THEN Y=Y+HD:GOTO 465 


DH 4660 TRAP 40000: IF TBL ( VER , Y ) =OTHER THEN RE 

TURN 
FP 4670 STR (VER, K) =500+100* (STR (VER, K) < >500) : R 

ETURN 
KE 4800 IF TBL(0,0)=NOW THEN X = : Y = : HD = C 1 : VD = 

O: GOSUB 5 000: X=0:Y=0:VD=C1:HD=0: GOSUB 

5000 
FD4810 IF TBL (O, C7) =NOW THEN X = C7 : Y = : HD = -C 1 : 

VD=0: GOSUB 5000:X=C7:Y=O:VD=C1:HD=O:GO 

SUB 5000 
FE 4820 IF TBL (C7, O) =NOW THEN X = : Y = C7 : HD = C 1 : V 

D=0: GOSUB 5000: X=0:Y=C7:VD=-C1: HD=0:GO 

SUB 5000 
AD 4830 IF TBL (C7, C7) =NOW THEN X = C7 : Y = C7 : HD=-C 

1 : VD=0: GOSUB 5000: X=C 7: Y=C7: VD=-C1 : HD= 

0:GOSUB 5000 
LA 4840 RETURN 
6B 5000 DFL = 0:TRAP 5040 
KH5010 X = X+HD: Y = Y + VD: IF TBL(Y,X)<>0 THEN GOSU 

B 5050:GOTO 5010 
EN 5020 TRAP 40000: IF DFL = AND STR ( Y , X ) < >500 

THEN STR (Y, X ) =400 
KJ 5040 RETURN 
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KJ 5050 IF TBL(Y,X)=NOW THEN RETURN 

KA 5060 DX=X: DY=Y: TRAP 5100 

IJ 5070 DX = DX+HD: DY = DY + VD: IF TBL < DY , DX ) =OTHER 

THEN 5070 
JH 5080 IF TBL ( Y, DX) =NOW THEN DFL = C1 
KS 5090 RETURN 
OA5100 TRAP 5040:RETURN 
KN5110 FOR X=C1 TO S 
HB5120 IF TBL(VER,X)=0 AND TBL ( VER , X -C 1 ) <>0 A 

ND TBL ( VER, X+Cl ) < >0 THEN GOSUB 5150 
HK5130 NEXT X:RETURN 
KN5150 HD=C1 : FL=0: GOSUB 5200: IF FL = OTHER THEN 

FL=0: HD=-C1 : GOSUB 5200:GOTO 5170 
KH5160 RETURN 

SF5170 IF FL = OTHER THEN STR < VER , X ) = 1 00 
KO5180 RETURN 
DC 5200 DX = X:TRAP 5220 
IP5210 DX=DX+HD:IF TBL (VER, DX) 00 THEN FL = TBL 

(VER, DX) : GOTO 5210 
AO 5220 TRAP 40000: RETURN 
LA 5310 FOR Y = C1 TO S 
LH 5320 IF TBL<Y,HOR)=0 AND TBL < Y-C 1 , HOR ) < >0 A 

ND TBL < Y+Cl , HOR) < >0 THEN GOSUB 5350 
HN 5330 NEXT Y: RETURN 
NB 5350 VD = C1 :FL = 0:GOSUB 5400: IF FL = OTHER THEN 

FL=0: VD=-C1 : GOSUB 5400:GOTO 5370 
KO 5360 RETURN 

SE 5370 IF FL = OTHER THEN STR ( Y , HOR ) = 1 00 
LA 5380 RETURN 
DI 5400 DY = Y:TRAP 5420 
JN5410 DY = DY+VD:IF TBL ( DY , HOR ) < >0 THEN FL = TBL 

(DY, HOR) : GOTO 5410 
BA 5420 TRAP 40000: RETURN 
CJ 6990 J=HOR: I=VER: K = C5+C9* (NOW = Cl ) : FOR LOOP = 

K TO K+39: K=K+C1-18* (K=18> : POSITION J+ 

J+C2, I+I+C2: ? #S; ANIM* (K, K) 
CO 6995 SOUND O , C4 , O , S* ( K = C8 OR K=17):NEXT LOO 

PsRETURN 
DA 7000 OPEN #C1 , C4, O, "K: " : GET #C 1 , KEY : CLOSE # 

CI: IF KEY=155 THEN 7000 
HL 7010 KEY = KEY-128* ( KEY > 127) : KEY = KEY-32* (KEY> 

90) : RETURN 
DN7100 POSITION C2tJ+C2, UC2 + C2: ON TBL ( I , J ) G 

OTO 7120,7130 
HD7110 ? #S; "\" : RETURN 
CC7120 ? #S; " £ J > " s RETURN 
KD7130 ? #S; " fH> " : RETURN 
HA 7200 POSITION 0,23:7 #S;"C20 SPACES> " ; : POKE 

LIST1+26, C7: POKE LIST1+2B,S 
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W 7205 FOR LOOP = Cl TO C3:P0SITIQN 0,24-OPT:? 

#S;LINEt; : SOUND O , 50*LOOP , DF , C 1 : FOR D 

EL=C1 TO 55:NEXT DEL 
DB7210 POSITION 0,24-OPT:? #S;"C20 SPACES> " ; : S 

OUND 0,0,0,0:FOR DEL=C1 TO C7:NEXT DEL 

:NEXT LOOP 
LH 7220 POKE L 1ST 1 +28 , C7 : POKE L I ST 1+26 , S : POS I T 

ION 17,20:? #S;"<:32 SPACES> ": RETURN 
JB 8000 H0R = C8: VER=1 1 : POKE 53248 , HOR« 1 6 : CR = P0 + 

VER*C8:COL=14* <NOW-Cl ) :0P=14* <N0W*C2-C 

3) :POKE 704, COL 
HP8001 SOUND O,40,C10, 15:P0KE CR,24:POKE CR + C 

1,126:P0KE CR+C2 , 24 : POKE 705,144 
DB 8002 POSITION CI, 20:? #S;"<:4 SPACES> " ; PL 1* ( 

C2,ll);" ":SOUND 0,0,0,0 
NH 8005 JST=STICK(NOW-Cl ) : TR I G=STR I G ( NOW-C 1 ) : I 

F JST=15 AND TRIG THEN 8005 
ON 8007 POKE 77,0:P0KE CR,0:POKE CR+Cl,0:POKE 

CR+C2,0:IF TRIG=0 THEN SOUND O,20,C10, 

15: J=H0R-C4: I =VER-C3 : GOTO 8100 
GP 8010 HOR=HOR+DELTA< JST,0> : VER=VER+DELTA < JST 

,C1):IF HOR5C12 THEN H0R=H0R-C9 
NK 8020 IF H0R<C4 THEN H0R = H0R + C9 
NB 8030 IF VER>11 THEN VER = VER-C9 
OH 8040 IF VER<C3 THEN VER=VER+C9 
HH 8080 IF H0R<C12 AND VER< 1 1 THEN POKE 704, CO 

L-OP* <TBL(VER-C3,H0R-C4)=N0W) : GOTO 808 

5 
BF 8083 POKE 704, COL: IF VER>C4 AND VER<C9 THEN 

POKE 704,42 
IN 8085 CR=P0+VER*C8: SOUND O , 200 , C 12 , C 1 : POKE 

53248, H0R*16:P0KE CR,24:P0KE CR+C1,126 

:POKE CR+C2,24 
BO 8090 SOUND 0,0,0,0:FOR LOOP = Cl 

OOP: GOTO 8005 
DM8100 SOUND 0,0,0,0:IF J = C8 AND 

THEN POKE 705, 42: PASS=C1 : GOTO 3200 
PM8110 IF I=C8 OR J = C8 THEN 8080 
NE8120 GOTO 8260 
AF 8200 GOSUB 7220: SOUND 0,40,010, 

CI, 20:? #S;PL1* <C2) ; " WiJWri 

O. O, O 
BO8210 GOSUB 7000 : I *=CHR* ( KEY ) : ? #S;I$:IF I* = 

"P" THEN PASS=Cl:GOTO 3200 
GJ 8240 ? #S;"{13 SPACES>lil!iay ";: GOSUB 7000:EXC 

H* = CHR* (KEY) : ? «S;EXCH* 
AP 8242 IF I*>="A" AND I*< = "H" THEN 8250 
CH 8244 IF EXCH*<"A" OR EXCHt>"H" THEN 8254 
BI S246 J = ASC (EXCH*) -65: IF It<"l" OR I * > " 8 " 

EN 8254 



TO 20:NEXT L 



I>C1 AND KS 



15:POSITION 
; : SOUND O, 
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HO 8248 I=ASC(I$)-49:GOT0 8260 

PC 8250 J = ASC ( I*) -65: IF EXCH*<"1" OR EXCH*>"8" 

THEN 8254 
KJ 8252 I=ASC(EXCH*> -49: GOTO 8260 
GE 8254 LINE*="<5 SPACES? TRY A6AIN" :DF = C10: 60S 

UB 7200: GOTO 8200 
LB 8260 HOR=J: VER=I : POSITION C2* J + C2 , I *C2 + C2 : ? 
#S; PLlt <C1 , CI > : IF TBL(I,J)=D THEN TBL 
( I , J) =NOW: GOSUB 1600:GOTO 8350 
FE 8300 LINE*=" fSE SSSB JJ T CitiMSET lM J=: " : IF NOW=Cl 

THEN LINE*=" c apt uredC , 5 square " 
BA8310 DF = C12:GOSUB 7200:GOSUB 7100:GOTO MAIN 

LOOP 
«I 8350 IF FLIP>0 THEN GOSUB 3000: GOTO 8400 
OC 8360 TBL < I , J) =0: LINE*=" C4 SPACES>tft*li-l=B 

tRPZEEE": IF NOW = Cl THEN LINE*=" 

C4 SPACES*! 1 legal C, 3 move" 
BK 8365 DF = C12:GOSUB 7200:GOSUB 7100:GOTO MAIN 

LOOP 
JE 8400 I=NOW: NOW = OTHER: OTHER=I : EXCH* = PL1$: PL1 

*=PL2*:PL2*=EXCH*: IF SFL=C2 THEN 8500 
KN8405 IF PLYRS>C2 THEN 9800 
HH8410 IF PLYRS=C2 OR N0W = C3-CP THEN GOTO MAI 

NLOOP 
UK 8415 LINE*=" comput er CG2 ■ s C , 3 move " : I F NOW = C 

2 THEN LINE*=" tjf«l^dlkjtJ SC[g>E<:H? JJil!^ " 
IK 8417 IF OPT = Cl THEN GOSUB 8570 
KB 8420 SOUND O , 40 , C 1 , 1 5 : POS I T I ON 0,20:7 *S;L 

INE*:SOUND O , O , O , O : GOSUB 4000:GOSUB 48 

00: GOSUB 3300 
DI 8421 IF MAX = -210 THEN 3212 
U 8422 IF STR (VER, HOR) =500 THEN K=300: GOSUB 4 

200: GOTO 8430 
JB8424 IF HOR = OR H0R = C7 THEN GOSUB 3800 
JH 8426 IF VER = OR VER = C7 THEN GOSUB 3900 
SK 8430 GOSUB 6990: GOTO 8260 

ON 8500 GOSUB 7220 : POS I T I ON CI, 20:7 #S;"black 

{DOWN} " ; : I=BSCR: K=-32: GOSUB 9700:7 #S; 

I*;" IHKEtlNS LINE3 " ; : I=WSCR: K=96: GO 

SUB 9700 
OD8510 7 #S; I*: GFL = C1 : 7 #S:IF BSCR>WSCR THEN 

7 #S;"<:5 SPACESJbl ack < , 3 wins" ; : GOTO 85 

40 
Hi 8520 IF WSCR>BSCR THEN 7 #S;"{5 SPACES3 ITEKi 

EtHiSHjE" ; : GOTO 8540 
FL 8530 7 #S;"C6 SPACES JfSiaBaaSIl" ; 
HB 8540 IF PEEK (53279) >S THEN 8540 
NL 8550 POKE 77 , O : K=PEEK < 53279 ) : I F K = S THEN SF 

L=D: M=0: GOSUB 8570:GOSUB 1740:GOTO 840 

5 
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NO 8552 

CG 8554 

OC 8556 

GB 8560 

LI 8565 

CM 8570 

CN 8600 
EI 8601 

KK 8602 
LC 8604 
BN 8610 
GH 8630 
AH 8640 
GJ 8650 

AB 8660 

EF 8670 

PB 9000 

JC 9005 

LD 9010 

LJ 901 1 



FD 90 i: 
EA 90 i: 



HD 90 14 

BA 9020 
10 9030 



IF K=C3 AND PLYRS=C1 THEN CP=CP+C1-C2* 

(CP=C2) : GOSUB 8600:GOTO 8540 

IF K=C5 THEN PL YRS=PL YRS+C 1 -C4 * < PLYRS= 

C4): GOSUB 8560: GOSUB 8600 

GOTO 8540 

IF PLYRS=C3 AND GFL=0 THEN PLYRS=C1 

RETURN 

POSITION 0,20:? ttS;"C60 SPACES} " ; : RETUR 

N 

IF PLYRS<C3 THEN GOSUB 8670 

ON CP+C2*PLYRS-C2 GOSUB 8630,8640,86 10 

,8610, 8650, 8650, 8660, 8660 

IF PEEK (53279) <=S THEN 8602 

RETURN 

? #S;"{18 SPACES: ": RETURN 

? #S; " computer i, >i s C , >bl ack" : RETURN 

? #S; " HEmina33<:i|} ffiCPl J 3DHHE" : RETURN 



POSITION 0,20:? 

":GOTO 8610 
POSITION 0,20:? 

aaH3G<:4 spaces: 

POSITION 0,20:? 



#S; 



HUTOMfiTIC REPLfl' 



#S;"<:3 SPACES3EEHLTEBBE 

:GOTO 8610 

#S;"C3 SPACES3 " ; CHRt (P 



LYRS+176) : " ■:!W:VJ3t:»tf:1Sr= {:4 SPACES? ": RET 

URN 

GRAPHICS 0: I=PEEK (560) +256* PEEK (561 ) : P 

OKE I+C3,71:POKE I +C 1 , S : SETCOLOR C2,C 

10,0: SETCOLOR C4,C10,O 

SETCOLOR CI , C10, C8: SETCOLOR C3,C12,C8: 

POKE 53774, 1 12: POKE 1 6 , 64 : POKE I + 1 4 , S : 

POKE I+15,S:P0KE 1+20, S 

POKE I+21,S:P0KE 82,0:P0KE 83,39:P0KE 

752, CI :POSITION C5,0:? " REVERSI 

C20 SPACES3 { 12 TXD>" 

FOR J=C1 TO 50:NEXT J : FOR J=19 TO 31:S 

OUND O, 200, CI 2, C8: POSITION J,0:? " + " : 

SOUND 6,0,6,0 

FOR K=C1 TO C7:NEXT K:NEXT J 

FOR J=C1 TO 30:NEXT J : SOUND O,20,C10,C 

10:POSITION 32, O:? " {Q3 ";: SOUND 6.0,6. 

0:FOR J=C1 TO 35:NEXT J 

FDR J = C1 TO C12:S0UND O , 60 , C 1 2 , C8 : ? " 

CB> " ; : 1 = 1 -I + I : SUUND 0,0,0,8:F0R K = C1 T 

O C4:NEXT K:NEXT J : I * =CHR* ( 34 ) 

POSITION 20, C4:? "select input device 

CZ3C38 MJ ":?:?" 1. fSBS SSSSaE. " 

? "(4 SPACES} Enter COLumn, ROW coordin 

ates.":? " i 4 BPfiCESJEnter " ; I * ; " P " ; I * ; 

" to pass. " 
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9040 



Jtl 9050 



DG 9 100 



9110 
9500 
9505 



MD 9510 



C4 SPACESiMove the cursor <+) to the s 
quare":? "{4 SPACES} you want and press 

the trigger." 
? "{.A SPACES] To pass, place the cursor 

over":? " < 4 SPACES} " : I * ; " PASS " ; I * : " a 
nd press the trigger." 

GOSUB 7000: TRAP 9100: DPT = VAL !CHR$ (KEY) 
):TRAP 40000: IF DPT<C1 OR OPT>C2 THEN 
9100 

GRAPHICS 23: RETURN 

I=C10+C4*<OPT-C1) :K=-32:GOSUB 97 
POSITION CI, CI:? #S; "PREPARING THE FIR 
ST":? #S; " BOARD WILL TAKE":? #S:? #S: 
" ABOUT ":I*:" seconds." 

#S; " WHEN THE BOARD 

? #S; " APPEARS, PRESS: 

? #s;" hi-itj*. - assiaEgiEig 



? #S: ? #S: 
{5 SPACES] 
C4 SPACES} 



CL 9: 



9600 
9 7 00 



KI 9800 



IA 980; 



D5 9806 



anas 



" : 7 #S; " 



" : ? # s s " asc 

EgESC - GAME" 



" pati enceCNJ ": RETURN 
J=C1 TO LEN ( I* ) : I* < J , J > 
J) )+!<): NEXT J: RETURN 
1 5: VER=INT (GAME (M) ) : HOR 

POSITION C5,20:7 #S; 

0, 0, O, O 



m 9807 


m 98 10 


LA 


9830 


AL 


9835 


OB 


10000 


BD 


10100 


1? 


10110 



LG 10 1 20 



10 130 
10200 



? #S; 

: RETURN 

? #S: ? #S: ? #5; 

I$=STR* ( I ) : FOR 

= CHRt (ASC II$(J, 

SOUND O, 40, CI0, 

= 10* (GAME (M) --VER) 

PL1* (C2, 1 1 ) : SOUND 

I = INT ( (M + C2) /C2> : POSITION C9+ ( KC10) ,2 

2: K=128: GOSUB 9700s? #S: I$:FOR K=C1 TO 

C 10: NEXT K 
IF PLYRS=C4 THEN GOSUB 7000+2830 *( QPT- 
Cl ) 

IF VER<0 THEN 3212 
GOSUB 6990: GOTO 8260 

IF STRIG(O) AND STRIG(Cl) THEN 9830 
POKE 77,0: RETURN 

DATA 500, -70, 75,65, -70, -200, , , 75 , , 

40,20,65,0,20,0 

DATA 664.38,648,224,696,256,552,24 0,5 

2 0,472,5 

92, 120, 6 

DATA 60, 

231 , 255, 

DATA 16, 

0,0, 126, 

255 , , , 

DATA 104 
DATA 1,1,1 
, 1,-1,0,0 



44, 


488, 


720, 32 


,7 04 


, 40, 


536 


, 48 


, 


56, 


496, 


ERROR 












24 , 


1 26, 


24 , 255 


, 60 , 


255, 


231 


, 25 


5 


60, 


1 26, 


24, 60, 


24 










0, 60 ,126, 255, 


2 5 5, 


126, 


60, 


0, 2 


4 


2 tj tj 


« 'jd. -_* tz 


i f 126,0 


,0,64, W , 


s;> . 


, *£i3 


S 


0, 7 


2,0, 


, , 2 5 5, , 


0,0, 









, , 


0,0, 


0, 255 , 


, , 












0,-1,-1,-1,0,0,0, 
1,-1,0 
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~ 

-K 



AF 14 000 



AC 14010 



CE 14 020 



EB 14025 
OE 14 030 

CF 15000 



FI 15010 

FJ 15020 

U 150 30 

DF 15040 
DG 1504 2 

OE 15044 

hb 15050 



GB 15055 
ED 15060 



HP 15 7 

DF 15080 

HA 15085 

BE 150 90 

EF 15095 

AC 15100 
92 



= C2 + C2: C: 

;+C3: CI = 



= C4 
C5 + 



10 INV. SHIFT 



AQ A(> AQ AQ AQAQ <\J> A 



C1=1:C2=C1+C1:C3=C2+C1:C4 

+C1:C8=C4+C4:C7=C4+C3:S=C 

C5:C12=S+S:C9=C5+C4 

DIM TBL (C7, C7 > ,STR!C7,C7) ,DELTA(15,C1 

> , I* <C2) , PL1* (CI 2) , PL2t (C12> , EXCH* (CI 

2) , LINE* ( 19) , ftNIM* ( 1 B) , GAME (75) 

PLYRS=C1:CP=C1:G0SUB 9 00 : FAC= 2 55 * (OF 

T-Cl) :MAINLODP=8000+200*(OPT=C1> :G03U 

B 100 

IF OPT-C1 THEN GDSUB 2000:GOSUB 2500 

SFL = 0: X = PEEK (559) : POKE 559,0:GOSUB 15 

000: POKE 559,X:G0SUB 3600: GOTO 8540 

? #S; " CCLEAR} " : POKE 709, O: POKE 7 11,14 

: POKE 7 12, 198: POKE 7 10, 176: POKE 708,2 

34: IF OPT=C2 THEN POKE 703,52 

ANIM$=" CBJ -CC3 CHJ C I } CO CCJ CS> C(T> CB3 

<:E" CE3 CG3 <:§J" CW3 CH3 CO CBJ C J 3 " : POKE 756 

, SET/256: POSI T ION 0,19s? #S;"BBBBI 

■■■gBBBHBi ■ " : REM 

POSITION CI, CI:? #S 

H":FDR I=C1 TO C7:PrjSITI0N C1,(C2*I) 

? #S; "Bi\Q\|Q\!a\Q\H\Q\a\B" : ? #5;" HaCEC 

najgamai" : nfxt i 

? #S:" B\H\H\E\!S\Ei\Ei\Ei\Ei n 

? «S;CHRt(32) ; CHR* ( 164 ) ; CHR* ( 2 22) ; CHR 

$(165) ; CHR* (222) ; CHR$ (165) ;CHR$(222) -, 

CHR* ( 165) ; CHR* (222) ; CHR* ( 165> ; 

? #S;CHR$(222) : CHR* ( 165) ;CHR$(222) ;CH 

R* ( 165) ;CHR$(222) ; CHR* ( 1 65) ; CHR* ( 222) 

; CHR* (166) 

POSITION C5.C5:? #S;"B" 

#S; "II" : POSITION C5.13: 

85, 13: ? 4»S; " B" 
IF OPT=C2 THEN 15080 
POSITION 0,0:7 #S;" A 
: FOR I=C1 TO C8:? #3:^ 
18: ? #S; I : NEXT I 
? #S:? # S ; " A B C D E 
Tl=-C8: RETURN 

POSITION 17,C5:7 #S ; " KM3" : FOR I=S TO 
C12:P0SITI0N 1 8 , I : ? #S; "\Q":NEXT I 
POSITION 17,13:? #S ; CHR* < 1 7 1 ) -, CHR* ( 22 
2) : CHR* ( 164 ) 

I=PEEK (560) +256*PEEK(56 1 ) :LET LIST 1 = 1 
:POKE I, S: POKE I+C1.C7 

FOR J=C2 TO C4:P0KE I + J , P E E K ( I + J + C 1 ) : 
NEXT J:POKE I+C5,S:P0KE I+28,C7:POKE 
707, 52 

POKE 706, 150: POKE 705, 144: POKE 5325 1, 
20B;POKE 53255 . 40 : POKE 53250 , 1 88 : POKE 

53249, t 92: RE TURN 



: POKE 85, 13: ? 



#S: "B' 



POKE 



BCD 
#3; I ; ; 



E F G H' 
POKE 85, 



G H" :LET LIS 



* 






Chapter 2 

Dollars from Heaven 



Steven Cohen 



Money may not grow on trees, but after playing this game 
you'll be convinced that it drops from the sky. 

"Dollars from Heaven" uses the vertical blank PM routine 
(VBLANK PM) by Tom Sak and Sid Meier, in COMPUTEI's 
First Book of Atari Graphics. It shows how a novice can create a 
game using programming techniques like the ones described 
in that volume. In fact, once the tricks have been mastered, it 
takes only a good idea and a little time. 

Understanding Interrupts 

The picture on your TV is formed when a beam of electrons 
draws scan lines across the screen. The beam starts at the top- 
left corner and moves to the right edge of the screen. It then 
shuts off for a fraction of a second (the so-called horizontal 
blank) and moves back to the left edge and down one line to 
draw the next scan line. 

After the last scan line is drawn, the beam shuts off and 
moves back to the top-left corner. This is the vertical blank, 
and it repeats 60 times per second. This game uses the blank 
period to update the positions of the players on the screen. All 
the user has to do is update the registers that hold the player 
position; the ML routine does the rest. 

In addition, each player can have four different shapes 
which, when used in a sequence, add to the animation of the 
character. For a complete discussion of the technique, I recom- 
mend that you get a copy of COMPUTEI's First Book of Atari 
Graphics. 

Catching Dollars 

After you type in Dollars from Heaven, save it to disk or tape 
before trying to play. Attempting to save the game after a few 
rounds have been played will cause strange things to happen 
when it is reloaded. 

The object of the game is to catch dollar signs to buy 
building materials without getting hit by the bombs. You con- 
trol the player at the right, moving right or left with the joy- 
stick. If you get hit by a bomb, you lose everything you were 
carrying. In addition, there are nails in the middle of the 
screen; use the fire button to jump over them. 
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Once you have collected enough dollars to match the cur- 
rent trade value (3 in the first round), take them to the store to 
get supplies. Then go to the site where the house is to be built 
(at the far-left side of the screen) and part of the house will 
appear. It takes four trips to the store to build a house. You 
get 10 points for catching a dollar sign, 10 points for installing 
the first three parts of the house, and 50 points for completing 
the house. 

After the first house is completed, you go to the next 
round. The trade value becomes four, and the bombs move a 
little faster. If you get to 1000 points, you get an additional 
player. The game starts with two players on reserve. 

How It Works 

Below is a brief explanation of the program. 

Line(s) 

90 Initializes player/missile graphics and Vblank PM. 

91-100 Draw background. 

101-102 Set up variables. 

103-120 Draw background. 

125-134 Set player color size and starting location. 

143-145 Move bombs and dollar sign. 

146 Checks to see if player is currently jumping. 

147 Checks for start of jump. 
148-150 Check joystick and move player. 

151 Disables attract mode. 

152 Gives Vblank PM new positions. 
170-175 Check for collisions. 

176 Looks for player at store. 

177 Looks for player at house. 
195 Animates player. 

300-349 Player-bomb collision routine. 

500-506 Player-dollar sign collision routine. 

600-612 House plotting routine. 

800-820 Jumping routine. 

1000-3060 Set up Vblank PM and player/missile graphics. 

Dollars from Heaven 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HN 90 POKE 53278, HI TCLR : GRAPHI CS 5:SETC0L0R 2, 
3,3:SETC0L0R 4,8,4:7 "PLEASE WAIT!":GOSU 
B 1000 

1L91 COLOR l:PLOT 35,39:PL0T 37,39:PL0T 39,39 
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KL 92 PLOT 37,38 

HA 99 COLOR 2:PLOT 75,39:DRAWTO 75,26:PLOT 79, 

25:DRAWT0 73,27:PL0T 79,39:DRAWT0 79,25 
PN 100 PLOT 7B,39:DRAWT0 78,26:PLOT 77,39:DRAW 

TO 77,27:PLOT 76,39:DRAWT0 76,27 
KE 101 Q=6:MEN=3: D9 = 3: Al = l :SC = 0: FY = 
KK 102 B2 = 0: D1=0: C0 = 
EB 103 PRINT :? :? :? " SCORE= " ; SC : FOR 1 = 1 TO 8 

99:NEXT I 
OA 104 PRINT :? "HOUSED SPACESJNAILS 

{12 SPACES>STORE" : ? 
DH 105 COLOR l:PLOT 9,5:DRAWT0 9,7:PLOT 8,6:PL 

OT 10,4:DRAWTO 10,8:PLOT ll,4:DRAWTO 11 

,8:PLOT 12,5:DRAWT0 12,7 
in 106 PLOT 13,6 

HN 120 PRINT "ROUND" ;A1 ;" C20 SPACES: TRADE= " ; D9 
6L 125 POKE PLY, 169: POKE PLL , 24 
D! 126 POKE PLY+1 , 15: POKE PLL+1,9:P0KE PLX + 1,1 

50 
BJ 127 POKE PLL+2,9:P0KE PLL + 3 , I 3 : POKE PLY + 2,1 

5:POKE PLY+3, 15:P0KE PLX+2, 1 70 : POKE PLX 

+ 3,70 
it 134 Z=10: A=10: B=10:DRAW=1 
HC 136 I=200:GOTO 148 
FP143 A = A + Q + 2:IF A>220 THEN A = 5: R = RND ( 1 ) *200 : 

POKE PLX+2, R: IF R<45 THEN R=170:POKE PL 

X+2,R 
OF 144 B = B + 4:IF B>220 THEN B = 5 : R = RND < 1 ) *200: PO 

KE PLX+3,R:IF R<45 THEN R=100:POKE PLX+ 

3,R 
DF 145 Z = Z+Q:IF Z >220 THEN Z = 5 : R = RND < 1 ) *200 : PO 

KE PLX+1,R:IF R<45 THEN R=70:POKE PLX+1 

,R 

DF 146 IF JPO0 THEN 800 

OE 147 IF STRIG(0)=0 THEN JP=l:GOTO 800 

JF 148 IF STICK(0)=15 THEN 152 

CF 149 IF STICK<0)=7 THEN 1 = 1+3: IF I >200 THEN 

1=200 
PE 150 IF STICK(0)=11 THEN I = I-3:IF K44 THEN 

1=44 
JA 151 POKE 77,0 
CK 152 POKE PLY+1, Z : POKE PLY + 2,A:POKE PLY + 3, B: 

POKE PLX,I:SOUND 0,Z,14,2 
HO 170 IF PEEK<53261 ) =1 THEN 300 

KN 171 IF K126 AND I>102 AND PEEK ( 53252 ) >0 TH 

EN 300 
MB 172 IF PEEK (53262) =1 THEN 300 
MG 174 IF PEEK (53263) =1 THEN 500 
MH 175 POKE 53278, HITCLR 
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LP 176 IF D1=D9 AND I>180 THEN D1=0:SOUND 2,60 
,10,B:FOR Cl=l TO 200:NEXT Cl:SOUND 2,0 
,0, 0: B1=B1+1 
DA 177 IF B1>0 AND K50 THEN GOSUB 600 
AN 1B5 POKE PDR,DRAW 
JB 190 IF STICK(0) = 15 THEN 205 

DD 195 DRAW = DRAW + 24: IF DRAW>73 THEN DRAW= 1 
GI 205 BOTO 143 

K 300 Z=5:D=0: JP=0:SOUND 3,0,0,0:EX=0 
If 302 FOR U=100 TO 200 STEP 10:SOUND 0,1,0,15 

:NEXT U 
CC 306 POKE PLY+1 , Z: POKE PLY+2,Z:P0KE PLY + 3,Z 
6H 307 POKE PLX,200:MEN=MEN-l:Dl=0:Bl=0sPOKE P 
LX+l,RsFOR S=l TO 200:NEXT S:SOUND 0,0, 
0,0 
KF 325 POKE 53278 , H I TCLR: I F MEN = THEN 327 
811 326 GOTO 125 
CC 327 ? :? "SCORE=" ;SC 
LA 328 PRINT "GAME 0VER{3 SPACES>TO PLAY AGAIN 

PRESS FIRE" 
EF 330 COLOR 

HB331 PLOT 3,39:DRAWT0 3,33 
6N 332 PLOT 0,35:DRAWTO 8,30 
KE 333 PLOT 8,30:DRAWTO 15,35 
HE 334 PLOT 12,33:DRAWT0 12,39 
E6 348 IF STRIG(0)=0 THEN 99 
HI 349 GOTO 348 

6P 500 D1=D1 + 1:IF D1>D9 THEN D1 = D9 
LI 501 B = 5:FOR C=l TO Dl:FOR Y=15 TO STEP -1 

:SOUND 2,9, 10, Y:NEXT Y:NEXT C 
FC 502 SC=SC+10:IF FY = AND SO1000 THEN MEN = M 

EN+1:FY=1:? "CBELLV 
m 505 R=RND< 1 ) *190: IF R<45 THEN 505 
ON 506 POKE PLY + 3,B:F0R S=l TO 20:NEXT S:POKE 
PLX+3,R:S0UND 0,0,0,0:POKE 53278, HITCLR 
:GOTO 143 
AD 600 COLOR 2: B2 = B2 + B1 : B1=0: FOR Rl = l TO 20:SO 





UND 3, 170,6, 10: FOR J=l TO 3:NEXT J : SOUN 




D 3,0,0,0:FOR J=l 


TO 5:NEXT J 


FJ 601 


NEXT Rl 




BC 602 


IF B2>0 THEN PLOT 


3,39:DRAWTO 3,33 


AP 603 


IF B2>1 THEN PLOT 


0,35:DRAWTO 8,30 


EH 604 


IF B2>2 THEN PLOT 


8,30:DRAWTO 15,35 


LK 605 


IF B2>3 THEN PLOT 


12,33:DRAWTO 12,39:CO 




LOR 0sFOR DE=1 TO 


100:NEXT DE:GOTO 611 


KG 610 


SC=SC+10: RETURN 




BN 61 1 


IF C0=0 THEN A1=A1+1:Q=Q+2:D9=D9+1:C0=1 



:GOTO 602 
JI612 SC = SC + 50: GOTO 102 
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EK 800 POKE PLY, PEEK <PLY> -3*JP: IF PEEK(PLY)<15 

THEN JP=-JP 
HI 805 SOUND 3, PEEK (PLY) -100, 10, 10 
DL 806 DRAW = 2 

IP810 IF DO0 OR EX = 1 THEN 815 
HB811 IF STICK(0)<>7 AND STICK(0)<>11 THEN EX 

= 1 
NI812 IF STICK<0)=11 THEN D=-3 
KH813 IF STICK(0)=7 THEN D = + 3 
AF815 I=I+D:IF I >200 THEN 1=200 
DI 816 IF K44 THEN 1=44 
0G817 IF PEEK (PLY) =169 THEN JP=0:SOUND 3,0,0, 

0: D=0: EX=0 
6K 820 GOTO 151 
OG 1000 FOR 1 = 1536 TO 1706:READ A:POKE I,A:NEX 

T I 
EN 1020 FOR 1 = 1774 TO 1787:POKE I,0:NEXT I 
NC 1030 PM = PEEK ( 106) -16: PMBASE=256*PM 
EN 1040 FOR I=PMBASE+1023 TO PMBABE + 2047 : POKE 

I,0:NEXT I : DRWBAS=PMBASE+ 1 
DP 1055 FOR J = TO 3 
GL 1065 FOR K=DRWBAS+J*24 TO DRWBAS+ J *24+23: RE 

AD X:POKE K,X:NEXT K:NEXT J 
ii 1066 RESTORE 3050 
LH 1067 FOR I=PMBASE + 1281 TO PMBASE + 1 289 : READ 

A:POKE I,A:NEXT I 
LL 1068 RESTORE 3050 
LH 1069 FOR I=PMBASE+1537 TO PMBASE+ 1 545 : READ 

A: POKE I, A: NEXT I 
LF 1070 RESTORE 3060 
LK 1072 FOR I=PMBASE+1793 TO PMBASE + 1 805 : READ 

A:POKE I,A:NEXT I 
PF 1075 POKE 704,223:POKE 705,73 
PD 1076 POKE 706,44:POKE 707,200 
GP 1080 PLX = 53248:PLY=1780: PLL=1784 
AK 1090 POKE 559,62:POKE 623,4:POKE 1788, PM + 4: 

POKE 53277, 3:POKE 54279, PM 
Ffl 1091 POKE 53256, 1 
HF 1095 PDR=1772: POKE 1771, PM 
HI 1100 X = USR(1696) 
KD 1 1 10 RETURN 
KG 2000 REM 
GP2010 DATA 162,3,189,244,6,240,89,56,221,240 

, 6, 240,83, 141 , 254, 6, 106, 141 
DG 2020 DATA 255,6,142,253,6,24,169,0,109,253, 

6, 24, 109, 252, 6, 133, 204, 133 
EC 2030 DATA 206,189,240,6,133,203,173,254,6,1 

33, 205, 189, 248, 6, 170, 232, 46,255 
ED 2040 DATA 6,144,16,168,177,203,145,205,169, 

0, 145,203, 136, 202, 208, 244, 76, 87 
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PE 2050 


DATA 




,203, 


Kit 2060 


DATA 




,48, i: 


NE 2070 


DATA 




9, 252 


6L 20S0 


DATA 




45,20 


CG 2090 


DATA 




6,98, 


OF 2100 


DATA 


KM 3005 


REM 


KK 3015 


DATA 




13, 13 


KO 3025 


DATA 




26,4, 


OH 3035 


DATA 




30, 12 


AA 3045 


DATA 




6,30, 


01 3050 


DATA 


LD 3060 


DATA 




47,21 



6, 160,0, 177, 203, 145, 205, 169, 0, 145 

200,202,208, 244, 174,253,6 

173,254,6, 157,240, 6, 1 89 , 236, 6 , 240 

33,203, 24, 138, 141 , 253,6 

109,235, 6, 133, 204, 24, 173,253,6, 10 

,6, 133, 206, 189, 240, 6, 133 

205, 189,248, 6, 170, 160, 0, 177, 203, 1 

5,200, 202,208,248, 174, 253, 6 

169,0, 157,236,6,202, 48,3,76,2,6,7 

228,0,0, 104, 169 

7, 162,6, 160,0,32,92, 228,96 

0,12, 12, 30, 0,12, 12, 0,12, 14, 30, 45, 

, 12, 28,28, 20,52,34,34,34, 102,0 

0, 12, 12,30,0, 12, 12,0, 12, 14, 14, 13, 

8, 12, 12, 28, 24, 28, 24, 20, 18, 50,0 

0,12, 12, 30, 0,12, 12, 0,12, 14, 10, 14, 

, 8, 12, 28, 28, 8, 12, 12, B, 24,0 

0, 12, 12,30,0, 12, 12,0, 12, 12, 12, 10, 

12, 12, 12, 12,20,20, 18, 50, 6,0 

126, 195, 195, 126,24, 153,90, 62,24 

16, 124, 214, 211, 208, 1 1 2 , 28 , 22 , 1 9 , 1 

4, 124, 16 
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Box Hunt 

Lenny Norinsky 



Are you looking for a fast-paced game that challenges re- 
flexes as well as skill? Then "Box Hunt," for any Atari with 
the GTIA chip installed, is for you, It will bring new meaning 
to the phrase "Don't fence me in." 

"Box Hunt" is a simple but entertaining game that demon- 
strates your Atari's ability to plot objects on the screen. You've 
just been named to the high post of Territorial Defender of 
Wambaogh, and your mission is a simple one: to erect a net- 
work of protective walls to defend your city and confuse the 
hostile Zuvambian raiders. Your weapon? The speedy 
Wambaoghian Waller, a sophisticated machine that automati- 
cally leaves a wall wherever it goes. All you have to do is 
guide it across the countryside. 

Or so you thought, until you read the fine print in the 
manual: "This Wambaoghian Waller must stop for supplies 
every 1000 glunkas." Supplies, huh? You know that means 
boxite — and that means you'll not only have to erect those 
walls but look for boxes too. 

It's not just a job. It's a box hunt! 

Guide your Waller using your joystick; it will leave a 
trail — the wall — behind it. Hit the boxes to run up your score. 
Every time you hit a box, you get 100 points and several addi- 
tional boxes appear. The object is to survive as long as you 
can, hitting as many boxes as possible, before crashing into 
the border or running into one of your own walls. If you do 
crash, the game will stop, show your score, and start over. 

As you'll quickly discover, Box Hunt produces some fast, 
reflex-challenging action. That's why I've included a panic 
button feature too. When you are in a tight space or about to 
crash, press the trigger on the joystick and your line will be 
randomly relocated on the screen. Sometimes it's all that will 
save you. But use it only when you have to, for it can make 
things worse just as easily as it can make them better! 
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Box Hunt 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

CL 1 GRAPHICS 0:GOSUB 1100:? :? :? " 

02 5PftCES> UIi> : M:»J. T ¥1 " : ? :? :? "POINT VALUES 
:":? :? "100 POINTS for a box." 
PJ 3 ? "5 POINTS for a line segment.":? "10 PO 

INTS BED -for easy escape" 
BC 4 POSITION 20,20:? " PRESS ": SOUND 0,100,10,1 
0:POSITION 20,21:? "3031113" : SOUND 0,50,10, 
10: IF PEEK<53279> <>6 THEN 4 
HB 5 GOSUB 1000 

GC 10 GRAPHICS 11:P0KE 7 1 , 0: Z X = 1 : Z Y = : X = 40 : Y = 
90:COLOR 10:PLOT 0,0:DRAWTO 79,0:DRAWTO 
79, 191 : DRAWTO 0,191:DRAWTO 0,0 
BK 20 A=RND <0> *70+5:B=RND (0) *180+5: COLOR 15:PL 
OT A,B:DRAWTO A+2,B:DRAWT0 A+2 , B+2: DRAWT 
O A,B+2:DRAWT0 A,B 
FK 30 COLOR 5:L0CATE X,Y,Z:IF Z=10 OR Z=5 THEN 

100 
NA 40 PLOT X,Y:SOUND , X , 1 , 4 : SOUND 0,Y,10,4:I 

F Z=15 THEN 110 
II 50 S = STICK (0) : IF S=14 THEN ZX = 0:ZY = -1 
JC 60 IF S=13 THEN ZX = 0:ZY=1 
LO 70 IF S=ll THEN ZX = -1:ZY = 
GH 80 IF S = 7 THEN ZX=1:ZY = 
BG 85 IF STRIG<0)=0 THEN X=RND < > *70+5 : Y=RND < 

) *180+5:SC=SC-10 
BD 90 X=X+ZX: Y=Y+ZY: SC=SC+5: GOTO 30 
JE 100 GRAPHICS 2:GOSUB 1100:? #6:? #6:? #6:? 
#6; "{3 SPACES? score :";SC:FOR 1=0 TO 99 
9:NEXT I : RUN 
JH110 X = X + ZX : Y = Y + ZY:SC = SC+100: GOTO 20 
FO 1000 GRAPHICS 2:? #6:? #6:? #6;"<:3 SPACESJJT 
S^READY": SOUND 1 , 1 90 , 1 , 1 : GOSUB 1100 
LJ 1010 FOR 1 = 1 TO 500:NEXT I:? #6:? #6;" 

C7 SPACES}go !": SOUND 0, 1 21 , 1 , 1 : SOUND 
1 ,87, 10, 10:FOR 1 = 1 TO 200:NEXT I 
LC 1020 SOUND 0, 0, 0, 0: SOUND 1 , , , : RETURN 
KG 1 100 REM 
CC 1 101 POKE 709, 31 
OH 1 102 POKE 710,0 
KH 1 105 RETURN 
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Chapter 2 

Dragon's Den 

Ken and JoAnn Davy 



Fight monsters and search for gold, but watch out for the 
traps in "Dragon's Den." 

We've always been dreamers, so after we bought our Atari 
and cassette recorder, we went in search of an adventure. But 
not just any adventure. We wanted one with several levels 
and lots of monsters and treasures, and filled with magic, 
sound, and graphics. Most of all, it had to fit into 16K. We 
also thought the adventure should change each time it was 
played, so that even if players did well, the game would still 
be challenging. 

Alas, our searching was in vain. So our next idea was to 
write our own adventure. After all, how hard could it be to 
write an adventure game that met all our requirements? 

A Year Later 

One year and many sleepless nights later the task was done. 
"Dragon's Den" was complete. 

In the game you wander from room to room, through dif- 
ferent levels, looking for monsters to kill and gold to win. 
Each lower level is more difficult than the one above. When 
you reach the fifth level, you'll meet the dragon. 

Your player has three characteristics: strength, dexterity, 
and hit points. Hit points determine the amount of damage 
you can survive when fighting monsters. 

Strength determines the amount of damage you do to a 
monster each time you hit it. Your strength is subtracted from 
the monster's hit points and added to your hit points. When a 
monster hits you, its strength is subtracted from your hit 
points. Some monsters are very strong! When both monster 
and player hit each other, its strength is subtracted and your 
strength is added to your hit points at the same time. 

Dexterity is the measure of how often you can expect to 
hit the monster. The higher your dexterity, the more often you 
will score a hit. 

There are two play options. The STANDARD PLAYER 
has a value of seven for each characteristic. Pressing the 
OPTION key causes the player characteristics to be selected 
randomly, thus RANDOM PLAYER. A random player could 
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have characteristic values higher or lower than seven. The 
game begins when you press START. 

Meeting Monsters 

All game action is controlled with the joystick. To get from 
one room to the next, simply move the joystick in the desired 
direction. Choices are prompted by messages in the text win- 
dow and include things like going up or down stairs, attacking 
monsters, and using magic rings or potions. 

When you enter a room with a monster, you can attack it 
by pushing the trigger on the joystick. You can flee the mon- 
ster by moving away from it. However, the monster will get a 
free attack. 

Every time you kill a monster, your gold will increase. 
Some monsters will also have magic items. You may possess 
one ring and one potion at a time. When you see either, you 
are given the choice of using it or leaving it. To use a ring or 
drink a potion, press the trigger on the joystick. To leave it, 
move away. 

When you have found one of the rings that can be used 
for attacks, the computer will give you the normal prompt, 
PRESS TRIGGER TO ATTACK. If you wish to attack, press 
the trigger. Otherwise, move the joystick in any direction. You 
will then get the prompt PRESS TRIGGER TO USE RING. If 
you wish to flee, move the joystick a second time. 

The rings have a limited number of charges, so use them 
wisely. When you attack with an empty ring, the computer 
tells you OUT OF CHARGES, and the monster gets a free 
attack. 

A few of the monsters have poison. If you are poisoned 
by a monster, you die no matter how many hit points you 
had. If you kill a poisonous monster, you will be given a 
magic sword which will increase your strength. If you get a 
second magic sword, your strength will again increase. 

If you pass through an empty room you get extra hit 
points for "resting." The level you're on determines how 
many hit points you'll get. When you return to a room for a 
second or third visit, it is unlikely that what you saw the first 
time will still be there. If you see a stairway in a room, leave, 
and then come back — there may be a monster in the stair- 
way's place. 

Oh, one more thing: Watch out for traps. 
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How It's Done 

Let's look at the listing. Line 10 assigns variable names to fre- 
quently used numbers (to save memory), and calls a sub- 
routine that creates redefined characters. 

Line 15 makes the dragon show up at the beginning of 
the program. 

Lines 35-75 give you the player option. Memory location 
53279 reads the function keys. A value of three means the 
OPTION key is pressed, and a value of six means the START 
key is pressed. 

Line 90 ends the program if you've gone up to the 
surface. 

Lines 100-105 draw the box for the floor plan. POKE 
756,BASE/256 + N2 resets the character set. POKE 77 in line 
100 disables the rotating colors that appear if there is no key- 
board input for several minutes. Lines 120-195 select the 
room contents and draw the floor plans. Lines 210-230 draw 
the dragon. 

Lines 245-350 animate the player with redefined 
characters. 

Lines 355-380 tell the computer what to do, depending 
on what's in the room. The strings store names and graphic 
shapes for the monsters. Lines 385-390 make the screen flash 
when you meet a monster. 

Line 400 sets the strength, dexterity, and hit points for the 
monsters. It also decides if you're facing a poisonous monster. 

Lines 410-555 handle the combat. Lines 565-685 decide 
what you found, if anything. 

Lines 760-790, 795-830 and 835-840 contain subroutines 
for stairway up, stairway down, and traps. 

The subroutine at 845 prints character values on the 
screen; 850 is the sound routine for the rings; 855 is used 
when you pick up certain rings. Line 860 disables the BREAK 
key. Line 865 blows dragon fire. 

Lines 870-920 end the game when you win or die. Lines 
925-935 start the game again. 

Next comes the data for monster names and graphics. 
Line 960 is a delay loop. 

Lines 965-985 place the monster in the room. The po- 
sition depends on which direction the player came from. 

Line 990 prints an often used phrase. 
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The rest of the program redefines the character set. Be 
careful typing the DATA statements, or your graphics won't 
look right. 

Dragon's Den 

For error-free program entry, read "The Automatic Proofreader" in Cliapter 1 before typing 
in this program. 

HL 5 DIM S* ( 1 ) ,M* (9) , L* ( 17) :M*="YOU SEE A " 

CC 10 G=l : V = 0: Jf0: Q = 0: E = 245: K = 330: N0 = 0: Nl = l : N2 

=2:N3=3:N4=4:N5=5:N6=6:N7=7:NB=8: N9=9: GO 

SUB 10000 
IB 15 QW=1 :GOTO 205 
OP 20 QW = 0: GRAPHICS N2+ 1 6 : SETCOLOR N4,NB,N0:GO 

SUB 860 
PE 25 POSITION N2,N2:? #6; "THE DRAGON'S DEN":P 

OSITION N9,N4:? #6 ; " B Y " : POS I T I ON N2,N6:? 
#6; "KEN S< JOANN DAVY" 
JJ 30 FOR Z = N1 TO 3000: NEXT Z 
CD 35 GRAPHICS N2+ 1 6 : SETCOLOR N0 , N0 , 1 4 : SETCOLO 

R N4, N3, N6: POSITION N5,N3s? #6; " STANDARD 

If 

BF 40 POSITION N6,N7:7 #6 ;" PLAYER ": SOUND 0,121 

,10,8:FOR Z=l TO 20:NEXT Z : SOUND 0,0,0,0 

:POKE 53729, N8: GOSUB 860 
EN 45 X = PEEK (53279) : IF X = N6 THEN P = N7 : N = N7 : H = N 

7:L=N1:GOTO 90 
BJ 50 IF X = N3 THEN FOR Z = N1 TO 130:NEXT Z : GOTO 

60 
AN 55 GOTO 45 
FL 60 POSITION N5,N3:? #6;" RANDOM ": SOUND 0,6 

0,10,8:FOR Z=l TO 20:NEXT Z:SOUND 0,0,0, 


BO 65 POKE 53279, N8: X = PEEK (53279) : IF X = N6 THEN 

80 
BN 70 IF X = N3 THEN FOR Z = N1 TO 130:NEXT Z:GOTO 

35 
BA 75 GOTO 65 
JH 80 P=INT (RND (Nl ) *N6) +N4:N=INT (RND(N1 ) *N5) +N 

5: H=INT (RND (Nl ) *N7) +N3: L=N1 
NA 85 IF L = N0 THEN 905 
HP 90 GRAPHICS N2:P0KE 756 , BASE + N2 : SETCOLOR N4 

, N8, N2: SETCOLOR N2 , N2 , N6 : SETCOLOR N0,N8, 

N2:SETCOLOR N3 , 1 , N8 : A= 1 : B=N4 : GOSUB 860 
HK 95 IF L = N5 THEN 200 

JA 100 POKE 77,N0:POSITION N1,N0:? #6;"£Q><:16 RJ 
CE3":FOR Z=N1 TO N8:POSITION N1,Z:? #6; 
" CY> ": POSITION 18, Z:? #6 ; " C Y> " : NEXT Z 
HL 105 POSITION N1,N9:? #6;"<:Z} : C16 R> <C> " 
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EH 110 7 "USE JOYSTICK TO MOVE" 

LI 1 15 GOSUB 845 

00 120 M=INT<RND (Nl ) *13> : W=N0: ON L GOTO 125,14 
5, 170, 185, 210 

HH 125 I=M+N2:POSITION N4,N0:? #6;"<:W}<:5 R> 
CW}<3 R} CW}":POSITION N4,N2:7 #6;"<Y} 
C5 SPACES} CY} C3 SPACES} < Y> " : POS I T I ON N4 
,N3:? #6; " CA3 CR} {R} {W3 < X 3- CWXRXX> 
{2 RJCD1" 

0j 130 position n1,n4:7 #6;"ca}<:r} <dj":positi 
on n4,n5:? #6:"<y}<:3 spaces} cy} 
<3 spaces} cy} ": position n4 , n6 : ? #6;" 
cy><:3 spaces? ca><:r> <rjcs}<:4 r} <d}" 

kp 135 position n8,n7:7 #6;"cy}" 

fn 140 position n4,n8:? #6;"<:y}<:7 spaces} cy} " : 

position n4,n9:? #6;"<:x}<:3 r}£x}<:3 r} 

<x} ": restore 940:goto e 
ec 145 setcolor n0 , 1 2 , n2 : setcolor n4,12,n2:i=m 

+ n9:position n5,n0:7 #6;"<:w}<:4 r}{w} 

C4 R}{W}": POSITION N5,N2:? I6j"{Y} 
{9 SPACES} CY}" 

DD 150 POSITION 10,1s? #6;" <Y}" 

HK 155 POSITION N1,N3:? #6 ; " <. A} CR} CR}CS}CR} 

C2 RHX}{2 R} CR}CS} CR3CD}": POSITION 1 
5,N4:? #6; " CY3 "l POSITION N5,N5:7 #6;" 
CY} ": POSITION N5,N6:7 #6;"CA}CR} C2 R} 

<w}CR} <2 R}<:s} cr}cd}" 

fiP 160 POSITION 5,8:7 #6;"CY}" 

BH 165 POSITION 10.N7:? #6;"{Y><4 SPACES} CY} " : 

POSITION N5,N9:7 #6;" CX3C4 R>CX><4 R} 

CXV:RESTORE 945:GOTO E 

FD 170 SETCOLOR N0 , Nl , N2 : SETCOLOR N4,N1,N2:I=M 
+ 15:POSITION N4,N0:7 #6;"CW}C3 R} CW} 
C3 R} CW} ": POSITION N4,N2:7 #6;"CY3 
C3 SPACES} CA}C3 R}CD}" 

HA 175 POSITION N1,N3:7 #6;"CA}C2 RXX) CR} 

CW}CC3C3 SPACES} CZ} CW} CR} C2 R} CD}": POS 
ITION N7 5 N4:7 #6;"CY}C5 SPACES} CY} ": POS 
ITION N1,N6:7 #6;"CA}C2 R} C2 RHXXE} 
C3 SPACES} CQ} CX} C2 R} {R}{D}" 

CE 180 POSITION N8,N7:7 #6: " €A><3 R} CD} " : POS I T 
ION NB,N9:7 #6|"CX>C3 R} C X }": RESTORE 95 
0:GOTO E 

EA 185 SETCOLOR N0 , N5 , N6 : SETCOLOR N4,N5,N6:I=M 
+21:POSITION N5,N0:7 #6;"CW}C6 R}CW}":P 
OSITION N5,N2:7 #65" CY3C6 SPACES} CA} 
C 2 R } C E } " 
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OH 190 



GD 19: 



6C 200 
m 205 
IF 210 



215 



CS 220 



m 2: 



EJ 230 



EA 235 

SK 240 
GA 245 

HD 250 
JL 255 

JE 260 

ND 265 

JB 270 

HD 275 



POSITION N1,N3:7 #6;"<:A3<:R3 {R3<D 

<:q>cr> <:rj<:d> <Z3 cr3 <D3 ■■: posit i 

N4:? •6i*CZ>CW}<R><C>{3 SPACESXY 
ITION N1,N6:7 #6;" (A3CR3 CR>CW>CX 
{ W 3 C R 3 <. W } i X X 3 R 3 C R } <. D 5 " 
POSITION N5,N7:7 »6;"CY3 <Y3 <Y 
ITION N5,N9:7 #6;"CX3C2 R3-CX3-C2 R 
RESTORE 955: GOTO E 
GRAPHICS Nl 

IF QW=1 THEN GRAPHICS Nl+16 
POKE 756, BASE+N2: SETCOLOR N0,N0,N 
OLOR Nl ,N3, N5: SETCOLOR N2,N7,12:S 
R N4, N0, N0: GOSUB 860 

POSITION N4,N2:7 #6; " CF> tM} 1 3 > <FJ 
{N}CF}{G!{H}{M}{G}":POSITION N5,N 
(" CH3 CB>CN>£F5 < J 3 ■" : POS I T I ON N 
#6; " <F3 CG3 <N3 " CN3 CF3 CG3 " : POS I T 
,N5:7 #6;" {H3 CH> CS> " CF> l J> {J3- 
POSITiON N4,N6:7 #6; " €H> { J> {H> CT3> 
{H3 CT3 CJ3 {H3 {J3-" : POSITION N4„ N7: 7 
€H><J>tV>CM><B>{:N>€F>tM>{B>€H>«J> 
TION N4,NB:7 #6; " CHJ < J > t V> CH> t J > { 
{J3 <B>CHJ <J3 ":POSITION N5 , N9 : 7 #6 
i J J C J 3 <: X 3 C H 3 C H 3 C J 3 " 
POSITION N6,10:7 #6;"<:H3 
■.POSITION N6,lll? #6;" {H3 



ON N5, 
3 " : POS 
3 {R3 

3 " : POS 
> t X 3 " : 



: 7 #6; " CB3- tH> tK3 CL 
N7, 15: 7 #6; " CV3 
":POSITION N7,16:7 # 

FOR Z=l TO 700:NEXT 



<J3 ": POSITION N6,12:7 #6; 
{ G 3 <J3 ": POSITION N6,13:7 
<. U 3 { J 3 f J 3 " 
POSITION N6, 14 
<:V3 " : POSITION 
C3 SPACES3 CB3- " 
I J >{ 3 U 3 { H 3 • " 
IF QW=1 THEN 

865 
GOTO 380 
POSITION A,B 
: SOUND N0,N0,N0,N0 
IF C=N1 THEN GOSUB 960 
IF STICK(N0)=14 THEN 
, X: IF X=32 THEN 280 
IF STICK(N0)=13 THEN 
, X: IF X=32 THEN 290 
IF STICK(N0)=N7 THEN 
,X:IF X=32 THEN 300 
IF STICK(N0)=11 THEN 
, X : IF X=32 THEN 315 
GOTO 255 



C J 3 < N 3 < H 
C F 3 C U 3 

" i H 3 <. F 3 
#6; " CH3 



0: SETC 
ETCOLO 

CG3 

3:7 #6 
5, N4: 7 
ION N4 

{J> " 

#6; " 
" : POSI 
N3 <!H3 
; " <H3 

3 i J 3 " 
<G3- 
<U3- 
CH3 

>{J> 

6; " 

2: GOTO 



7 #6; "W" : SOUND N0,25,N0,N8 



S=14: LOCATE 



S=13: LOCATE 



S=N7: LOCATE 



S=ll: LOCATE 



A, B-Nl 
A, B+Nl 
A + Nl , B 
A-Nl , B 



106 



Chapter 2 



PH 


280 


tC 285 


PH 


290 


LB 


295 


ED 


300 


LG 


305 


cc 


310 


EL 


315 


LF 


320 


ON 


325 


PD 


330 



BI 34 



IK 345 
6M 350 

IE 355 

AD 360 
BB 365 
M 370 
DD 375 

NG 380 
SL 385 



BH 390 



LB 395 
NJ 400 

LK 405 
AJ 410 

BJ 4 15 
AE 420 



POSITION A.B:? 4*6 ; "ET" : POS I T I ON ft,B-Nl:.? 

#6; "C" : SOUND N0 , 50 , N0 , N8 : SOUND N0.N0.N 
0,N0:GOSUB 960 

POSITION A,B:? #6;" " : B=B-N 1 : C=N 1 : GOTO 
K 

POSITION A.B:? #6 ; " G" : SOUND N0,50,N0,N8 
: SOUND N0, N0, N0« N0: POSITION A,B+N1:? #6 
; "JT": GOSUB 960 

POSITION A,B:? #6;" " : B=B+N 1 : C=N 1 : GOTO 
K 

POSITION A,B:? #6 ; "ffi" : GOSUB 960 
POSITION A,B:? *»6 ; " H" : SOUND N0 , 50 , N0 , NB 
: SOUND N0, N0, N0, N0: GOSUB 960 
POSITION A,B:? #6;" " : A= A+N 1 : C=N0 : GOTO 
K 

POSITION A,B:? #6 ; "E" : GOSUB 960 
POSITION A,B:7 #6; "E" : SOUND N0,50,N0,N8 
: SOUND N0, N0, N0, N0 : GOSUB 960 
POSITION A,B:? #6;" " : C=N0 : A= A-N 1 
IF D = N1 THEN POSITION A,B:7 #6 ; "E" : D = N0 
:GOTO 355 
LOCATE A+Nl , B, X : LOCATE A-N 1 , B , X 1 : LOCATE 

A, B+Nl , X2: LOCATE A,B-N1,X3 
IF X<32 AND XK32 OR X2<32 AND X3=l OR 
X2<32 AND X3=4 OR X2<32 AND X3=25 OR X2 
<32 AND X3=23 THEN D=N1 
IF X2<32 AND X3=19 THEN D=N1 
GOTO 245 

IF M<N7 THEN FOR Z = N0 TO M:READ L*,S*:N 
EXT Z:? M*;L*:GOSUB 965 
IF M=N7 THEN 760 
IF M=N8 THEN 795 
IF M = N9 THEN 835 

IF M>N9 THEN ? :? :? "ROOM EMPTY" :H=H+L 
:GOTO 110 

IF L=N5 THEN ? M*;" DRAGON ! " : I =30 : M=N 1 
FOR Z=l TO 3:F0R Zl=8 TO STEP -l-.SETC 
OLOR Nl ,N2,N6:SOUND N0 , 60 , 1 , Z 1 : SOUND N 
1,47, 10, Zl :NEXT Zl 

SETCOLOR Nl , 12, 10: SOUND N0 , N0 , N0 , N0 : SOU 
ND Nl ,N0,N0,N0:FOR Z2=l TO 50:NEXT Z2:N 
EXT Z 

IF L=N5 THEN SETCOLOR N1,N3,N5 
T=L+N4:O=I+T:F=N0: IF L>N1 AND M=N3 THEN 

W = N1 
GOSUB 845 

IF F=N1 THEN 7 "IT'S STILL ALIVE!" 
7 "PRESS TRIGGER TO ATTACK" 
IF STRIG(N0)=N0 THEN 490 
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EN 425 IF STICKCN0X15 AND L = N5 THEN ? "YOU'RE 

CUT OFF! " 
m 430 IF STICKIN0X15 THEN 440 
BL 435 GOTO 420 

EC 440 IF V<N6 OR V>N9 THEN Q = Nl:GOTO 505 
KB 445 IF V>N5 THEN ? :? :? "PRESS TRIGGER TO 

USE RING": GOSUB 960 
EC 450 IF STRIG(N0)=N0 THEN GOTO 465 
BF 455 IF STICK(N0)<15 THEN Q = Nl:GOTO 505 
GH 460 GOTO 450 
DB 465 IF U<N1 THEN V = N0i? "OUT OF CHARGES !": F 

OR Z=N1 TO 100:NEXT Z : GOTO 505 
LI 470 IF V=N6 THEN 0=0- 1 2: U=U-N 1 : GOTO 850 
LP 475 IF V = N7 THEN = 0-22: U = U-N 1 : GOTO 850 
HB 480 IF V = N8 THEN = 0-36: U = U-N 1 : GOTO 850 
HC 485 IF V = N9 THEN 0=0+ 1 5: U = U-N 1 : GOTO 850 
KB 490 X=INT <RND<N1 > *10> : IF X<=N THEN = 0-P:H = 

H+PsGOTO 500 
DJ 495 FOR Z = N0 TO 15:S0UND N0 , 1 5 , N0 , Z : NEXT Z: 
FOR Z=15 TO N0 STEP -1:S0UND N0,15,N0,Z 
:NEXT Z:GOTO 505 
JB 500 FOR Z=N0 TO 15 STEP +N2:SOUND N0,15,N0, 

Z:NEXT Z:SOUND N0,N0,N0,N0 
BI 505 X = INT(RND<N1 ) *10) : IF X<=T THEN H=H-I:GO 

TO 515 
DA510 FOR Z = N0 TO 15:S0UND N0 , 1 5 , N0 , Z : NEXT Z: 
FOR Z=15 TO N0 STEP -l:SOUND N0,15,N0,Z 
:NEXT Z:GOTO 535 
AI515 IF L = N5 THEN 865 

JF 520 FOR Z=N0 TO 12 STEP +N2:S0UND N0,15,N0, 
Z:NEXT Z:SOUND N0,N0,N0,N0 
J=N8 THEN W=N0 
INT <RND(N1 ) *N8) : IF W=N1 AND X<L THEN 
'POISONED BY MONSTER !": G=N0: GOTO 895 
H<N1 THEN 895 

Q=N1 THEN S*=" ":GOSUB 965 
Q=N1 THEN Q=N0:GOTO 110 
O>N0 THEN F=Nl:GOTO 405 
!? : 7 "YOU WON!":S*=" " : GOSUB 965 
J=N8 THEN W=N1 

W=N1 AND L>N1 AND M=N3 THEN ? :? M* ; 
" MAGIC SWORD!":? : P=P+L : S*= " j ": GOSUB 9 
65 
6P 570 IF W = N1 AND L>N1 AND M=N3 THEN FOR Z=l 

TO 300:NEXT Z:S*=" ": GOSUB 965 
BL 575 X=INT < 100*RND <N1 > +N1 > : IF X>10 THEN 665 
1H 580 ? M*; " RING ! " : U=INT (N5*RND <N1 > +N1 ) : GOSU 

B 990 
6D 585 S*="k": GOSUB 965 
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HJ 525 


IF 


KJ 530 


X = 




? 


AE 535 


IF 


LK 540 


IF 


HK 545 


IF 


HB 550 


IF 


LB 555 


7 


HJ 560 


IF 


OF 565 


IF 
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590 IF STRIG<N0>=N0 THEN 
N V GOTO 605,610,615 
0, 645, 650 

IF STICK(N0)<15 THEN 
GOTO 590 



OH 595 
GK 600 
U 605 
L6 610 
LH 615 
AP 620 
HD 625 
NC 630 
CH 635 
F6 640 
CH 645 

ei 650 

KI 655 
PC 660 
DH 665 
10 670 
GP 675 
HN 680 

6F 685 
FF 690 
HF 695 

OA 700 
HJ 705 
HO 710 
DE 715 
HH 720 
PD 725 
HN 730 
KF 735 
HP 740 
6N 745 
PC 750 
HH 755 
NS 7 60 

% 765 
FE 770 
BJ 775 



ICC 780 
PK 785 
6L 7 90 



V = X:? :? :Z2=655:0 
620, 625,630,635,64 

660 



L=N2: GOTO 
L=N3: GOTO 
L=N4: GOTO 
G=G*N2: ? 
G=N0:' 



855 
855 
855 
GOLD 



DOUBLED 



7 



GOTO 
GOLD LOST": GOTO Z2 
"RING OF ICE!":GOTO Z2 
"RING OF FIRE!":GOTO Z2 
"RING OF DESTRUCTION !": GOTO 
"RING OF LIFE!":GOTO Z2 
"NO EFFECT" 

Z=N1 TO 500:NEXT Z 



Z2 



FOR 

S*=" ":GOSUB 965 

X=INT ( 100»RND (Nl ) +N1 ) : IF X >N9 THEN 750 

GOSUB 845 

IF X=N1 AND J = N8 THEN 

? : ? : ? M*; " POTION ! " 

990 

S*="l": GOSUB 965 

FOR Z=l TO 100:NEXT Z 

IF STRIG(N0)=N0 THEN ON J GOTO 

720, 7 25, 730,735, 740, 745, 745 

IF STICK(N0)<15 THEN 750 

GOTO 695 

? "POISON! TASTED AWFUL ! " ! G=N0 : GOTO 

H=l:? "HIT POINTS LOST !": GOTO Z2 

H=H+H:? "HIT POINTS DOUBLED !": GOTO Z2 
"DEXTERITY IMPROVED! ": GOTO Z2 
"DEXTERITY LOST I ": GOTO Z2 
"STRENGTH IMPROVED ! ":GOTO Z2 
LOST ! " : GOTO Z2 



X = N8 

J=X: Z 2=750: GOSUB 



710,715, 



895 



7 
7 
? 



* (L*L*L) : GOTO 110 

: ? M$; " STAIRWAY UP 



N = N + L 

N=N-L: 

P=P+L: 

P=P-L:? "STRENGTH 

? "NO EFFECT" 

S*=" ": GOSUB 965 

G = G+INT (RND < 1 > *10> 

GOSUB 845: S*=" tH} " 

GOSUB 990 

GOSUB 965 

FOR Z=l TO 100:NEXT Z 

IF STRIG(0)=0 THEN L=L-l:FOR Z=120 TO S 

STEP -5:SOUND N0 , Z , 1 , N8 : FOR Zi=l TO 

10:NEXT Zl:SOUND N0 , N0 , N0 , N0 : NEX T Z : GOT 

O 85 

IF STICK(0)=15 THEN 775 

S*=" ": GOSUB 965 

GOTO 110 
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MG 795 


AL 800 


MB 805 


EP 810 


BJ 815 



OG 8 20 


PF 825 


GB 830 


NA 835 


DK 840 


GA 845 


AE 850 


JA 855 


FC 860 


JG 865 


PO 870 


AL 875 


GL 8 80 


ON 885 


OK 890 


GD 895 


HB 900 


AG 905 


LD 910 


PE 915 



GOSUB 845 

S*="CJ3":? M*;" STAIRWAY DOWN":GOSUB 99 



GOSUB 965 

FDR Z=l TO 100:NEXT Z 

IF STRIG(N0)=N0 THEN L=L+Nl:FOR Z=B0 TO 

120 STEP N5:SOUND N0 , Z , 1 , N8 : FOR Zl=l 
TO 10:NEXT Z 1 : SOUND N0 , N0 , N0 , N0 : NEXT Z: 
GOTO 90 

IF STICK(N0)=15 THEN B15 
S*=" ": GOSUB 965 
GOTO 110 

? :? :? "TRAP !": POSITION A,B:? #6;"i":F 
OR Z=40 TO 150:SOUND N0 , Z , 1 , N8 : NE XT Z: 
FOR Z=N1 TO 10:SOUND N0 , 1 5 , N0 , 1 5 : NEXT Z 
SOUND N0, N0, N0, N0: L=L+N1 : GOTO 85 
? "STR=";P;" DEX=";N;" HP=";H;" GOLD 
= " : G: RETURN 

FOR Z=l TO 50:SOUND N0 , 4 , 1 , N8 : SOUND N 
1 , 100, 10, NS: NEXT Z : SOUND N0 , N0 , N0 , N0 : SO 
UND Nl , N0, N0, N0: GOTO 535 

? "TELEPORTED TO LEVEL ";L:FOR Z=l TO 2 
00:NEXT Z:GOTO 85 

X=PEEK ( 16) : IF X>127 THEN X=X-128:P0KE 1 
6,X:P0KE 53774, X : RETURN 
FOR Z1=N1 TO 10:FOR Z=N1 TO 14:SETC0L0R 

N0, N3, Z : SOUND N0 , 50 , N8 , 1 5 : NEX T Z : SOUND 

N0, N0, N0, N0: NEXT Zl 
IF QW=1 THEN FOR Z=l TO 100-.NEXT Z : GOTO 

20 
IF H<N1 THEN 895 
IF O>N0 THEN F=N1 
IF 0<N1 THEN G=G+10000:? "DRAGON DEAD! 

GOLD=" ; G: GOTO 910 
SETCOLOR N0, N0, N0: GOTO 405 

? "PLAYER DEAD ! " : G=N0: 7 " GOLD= " ; G : I F L< 
N5 THEN POSITION A,B:? #6;"[T" 
GOTO 915 
? "GOLD=" ;G 
? "YOU SURVIVED ! " 

IF G<N1 THEN FOR Z=N0 TO 255 STEP 10:SO 
UND N0, Z , 10, N8: FOR Z1=N1 TO N5:NEXT Zl: 
NEXT Z:SOUND N0 , N0 , N0 , N0 : GOTO 925 



EG 9 


20 


PN 9 


25 


DJ 9 


30 


HG 9 


35 



FOR Z=255 TO N0 STEP -10:SOUND N0,Z,10, 

N8:FOR Z1=N1 TO N5:NEXT Z : SOUND N0 , N0 , N 

0, N0 

? "PRESS TRIGGER TO PLAY AGAIN" 

IF STRIG<0)=0 THEN 35 

GOTO 930 
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AK 940 DATA N ORC.a, GIANT ANT,o 
BIANT SPIDER, {RIGHT} , SK 
IE.v, TROGLODYTE, u 
KI 945 DATA N OGRE.u, BUG BAT , x , 
■CP3 , GAS BAG,t, GORILLA, m 
, CLEFT*, MAN EATING PLANT 
PF 950 DATA N EVIL FIGHTER, a, WE 
Y,v, GIANT HORNET, (IJ, GI 
ROLL, I , CYCLOPS, { 
IJ 955 DATA N EVIL WIZARD, 5, WRA 
R,{UP3, GIANT SCORPION, n, 
{DOWN}, TITAN, y, DEMON, CO 
FOR Z = N1 TO N9:NEXT Z : RET 
IF S=14 
IF 5=13 
IF S=N7 
IF S=l 1 
RETURN 

? "PRESS TRIGGER TO USE": 
00 BASE=PEEK < 106) -S: CHSET= 

EK (CHSET+512) =229 THEN 
10 GRAPHICS 18:SETC0L0R N4 
R N0, Nl , 10: POSITION N2, 
DRAGON' S DEN" 
IN 10020 POSITION N2,N5:7 #N6;"P 
":POSITION N3.N7: ? #N6; 



LD 960 


0. 965 


KE 970 


M 975 


KF 980 


IG 985 


HA 990 


ON 100 


ON 100 



THEN 


POSITION 


A, B 


THEN 


POSITION 


A, B 


THEN 


POSITION 


A + N 


THEN 


POSITION 


A-N 



GIANT RAT,w, 
ELETON,r, ZOMB 

GIANT LIZARD, 
, GIANT BADGER 

, q 

REWOLF,a, MUMM 
ANT SNAKE, p, T 

ITH,z, MINOTAU 
VAMPIRE, 

J 

URN 

-Nl:? #6;S* 

+N1 : ? #6; S* 

1 , B: ? #6; S* 

1 , B: ? #6; S* 

RETURN 

BASE*256: IF PE 

RETURN 

, N3, N0: SETCOLO 

N2: ? #N6; "THE 

LEASE WAIT FOR 
"35 SECONDS. . . 



HN 15000 

BG 15001 

CI 15002 

EH 15003 



CL 

AH 
PP 
OB 
LD 
BK 
LE 
EC 
BI 
PJ 
EC 

tic. 

HJ 



m 1 



PC 



5004 
5005 
5006 
5007 
5008 
5009 
50 10 
501 1 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 



FOR I 

344+1 

RESTO 

READ 

FOR J 

+ J , B: 

GOTO 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



= N0 TO 
) : NEXT 
RE 150 
A : I F A 
= N0 TO 
NEXT J 
15002 
64, 229 



1023: POKE CHSET+ I , PEEK < 57 

I 
05 
<N0 THEN RETURN 

N7:READ B-.POKE CHSET + A*N3 



73 

79 

80, 

89, 

92, 

93 

94 

95 

97 



,0,2 
56 , 
254 
24 
56 
12 
0, 
36, 
0, 4 



98, 0, 2 
99 



30, 
124 
2 2 
24, 
16, 
30, 
,0, 
149 
8, 1 
6, 6 



0, 1 
100, 0, 
101,0, 
102, 0, 



,21 

234 
, 21 
5, 1 
24, 
1 24 
61 , 
59, 
, 93 
20, 
0, 8 
0, 4 



5,12 
, 234 
5, 25 
16,5 
24 , 2 
, 124 
61,6 
126, 
, 250 
120, 
8, 28 
5,12 



,28 

3, 1 
6, 6 

4, 2 
. 12 
0, 6 
255 



12 



88, 
48, 
0, 



60, 
120 
,0, 



26, 5< 
, 180, 
48, i: 



0, 60, 106, 161 

, 120, 150, 230 

89, 184, 68, 68 

2, 92,31 ,23 

4, 24 , 24 

4, 56, 56, 56 

2, 126, 18 

, 128, 64 

5, 90, 149,37 

, 48, 48, 

,64,0 

,1,0 

6,2,0 

, 92, 128, 

120, 120 



111 



Chapter 2 



GH 15020 


DATA 


103, 


48,48, 16, 16,0,0,0,0 


AK 15021 


DATA 


104, 


0, 16, 38, 56, 126, 32, 16,0 


EM 15022 


DATA 


105, 


0, 126, 66, 66, 66, 66, 126, 


EI 15023 


DATA 


106, 


16, 16, 16, 16, 16, 16. 56, 16 


DE 15024 


DATA 


107, 


0,0, 28, 20, 28, 0, 0, 


BE 15025 


DATA 


108, 


0. 0, 8, 8, 28, 28, 0, 


SC 15026 


DATA 


109, 


24, 60, 255, 189, 189, 189, 2 19, 24 


SP 15027 


DATA 


1 10, 


0, 32, 80, 128, 190, 255, 4 2, 


LD 15028 


DATA 


111, 


0, 74, 42, 237, 255, 237, 42, 74 


fll 15029 


DATA 


112, 


0,8, 20, 16, 12, 126, 255, 


KH 15030 


DATA 


113, 


28, 19, 18, 16, 56, 16, 124, 124 


KJ 15031 


DATA 


1 14, 


8, 28, 42, 8, 28, 20, 20, 


DL 15032 


DATA 


115, 


0, 13, 62, 92, 60, 124, 254, 


LH 15033 


DATA 


116, 


28, 62, 127, 62, 28, 215, 36, 82 


OC 15034 


DATA 


117, 


48, 120, 252, 180, 180, 48, 48,0 


OE 15035 


DATA 


1 18, 


0, 48, 60, 48, 56, 40, 32, 


HB 15036 


DATA 


1 19, 


0,0, 60, 126, 255, 128, 124, 


JI 15037 


DATA 


120, 


0,238, 124, 16,0,0,0,0 


EK 15038 


DATA 


121 , 


24, 126, 255, 255 , 255 , 255 , 60 , 60 


QD 15037 


DATA 


122, 


62, 107, 255, 1 19, 62,28, 12, 24 


FA 15040 


DATA 


123, 


56, 108, 254, 254, 254, 254, 56, 56 


NA 1504 1 


DATA 


124, 


0,0,24, 60, 126, 90,24,0 


HE 15042 


DATA 


-1 
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Memory Match 



Dave Miller 



Memory (yours, not the computer's) is the key to winning 
this game of matching shapes. For two players. 

In this popular memory game, you are presented with a game 
board made up of 21 squares. Each square is identified by a 
letter, and different shapes are hidden behind the squares. The 
object is to match the hidden shapes by picking the appro- 
priate squares. 

Each player picks two squares per turn. If they match, the 
player's score increases by ten points and the player gets an- 
other turn. One extra point is added for each subsequent 
match; for instance, the tenth pair is worth 20 points when 
correctly matched. If the two squares you want revealed don't 
match, the squares will again go blank, no points will be 
awarded, and the other player takes a turn. 

The board also contains one penalty square. The penalty 
square costs you five points (and forfeits your turn) every time 
you pick it, so you would be well advised to remember where 
it is. 

The game continues until the final pair of characters have 
been matched. At that time the program checks to see which 
player has the most points, or if a tie exists. Pressing the ESC 
key will end the game, or you can press any other key to play 
again. 

Built-in checks make sure that you enter only valid letters 
(A-U) when selecting a square. If you do hit an invalid key, 
you are notified by a message at the top of the screen and can 
then try again. The program also will not allow you to choose 
the same square for your first and second guesses in any given 
turn. 

Memory Match 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

OH 10 GRAPHICS 17-.POKE 70B,44:POKE 709, 52: PDKE 

712, 56 
GD 20 DL=PEEK (560) +256*PEEK (561 ) +4: POKE DL+9,7 
AH 30 POSITION 4,8:? #6; "MEMORY MATCH" 
FN 40 POSITION -2, 15: ? #6;"please stand by" 
EP 47 REM 
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SK 48 REM *** ENABLE CHSET *** 

FB 49 REM 

UK 50 GOSUB 670:? #6; " CCLEARJ '* ! POKE 756, CHSET/ 

256 
FA 57 REM 

SA 58 REM *** SET UP GAME BOARD *** 
FC 59 REM 
M 60 POKE 559,0: POKE 70S, 142: POKE 709,1 34 : POK 

E 7 11, 30: POKE 7 12,0 
JA 70 DIM CHR (21 ), COLR (21 ), MATCH ( 1 1 ): POKE DL + 2 

,7:P0KE DL+21,7:POKE DL+9,6 
ID 80 PLAYER=0: SCORE 1=0:SCORE2=0:COUNT=0:X=0:L 

AF 90 POSITION 3,1:? #6; "MEMORY MATCH" 

OE 100 SCR = PEEK (88) +256*PEEK (89) : POKE 16,64:P0 

KE 53774,64 
EC 110 FOR A = 2 TO 16 STEP 2-.F0R B = 3 TO 17:P0KE 

SCR+A+B*20, 75: NEXT B:NEXT A 
EG 120 FOR A=l TO 4:F0R B = 42 TO 56:POKE SCR + B + 

X,76:NEXT B : X=X + 1 00 : NEXT A 
DJ 130 FOR A = 63 TO 75 STEP 2:P0KE SCR + A,L:L = L + 

1 : NEXT A 
JH 140 FOR A=163 TO 175 STEP 2:P0KE SCR+A,L:L= 

L+-1 : NEXT A 
JP 150 FOR A = 263 TO 275 STEP 2-.P0KE SCR + A,L:L = 

L+lsNEXT A 
EP160 GOSUB 540:POKE 559,34 
IC 167 REM 

KF168 REM *** CHARACTER PLACEMENT *** 
IE 169 REM 
«0 170 RESTORE I NT ( RND ( > * 9 > + 1 80 : FOR A= 1 TO 11 

:READ CHR,COLR:CHR(A)=CHR:COLR(A)=COLR: 

NEXT A 
Nil 171 FOR A=12 TO 21:READ CHR , COLR : CHR ( A ) =CHR 

: COLR ( A) =COLR: NEXT A 
FB 180 DATA 129,14,130,20,131,30,132,186,133,8 

6, 134 , 76, 135, 40, 136, 2 18, 0, 0, 138, 54, 137, 

198 
JK 18 1 DATA 130,20,138,54,129,14,137,198,131,3 

0, 136 , 2 18, 132, 186, 135,40, 133, 86 , 134, 76 
FD 182 DATA 13 1,30,135,40,0,0,138,54,129,14,13 

2, 186, 130, 20, 137, 198, 134, 76, 136, 218, 133 

, 86 
JH 183 DATA 132,186,138,54,129,14,137,198,134, 

76, 133, 86, 136, 2 18, 135, 40, 131 , 30, 130, 20 
FF1S4 DATA 129,14,0,0,131,30,136,218,130,20,1 

38, 54 , 133, 86, 135, 40, 134 , 76, 132, 186, 137. 

1 98 
JG135 DATA 138,54,137,198,136,218,135,40,134, 

76, 133,86, 132, 186, 13 1, 30, 1 30, 20, 129 , 14 
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FH 186 DATA 129,14,0,0,131,30,136,218,130,20,1 

38, 54, 1 33, 86, 135, 40 , 134,76, 1 32, 1 86, 137, 

198 
Kfi 187 DATA 132,186,138,54,129,14,137,198,134, 

76, 133, 86, 136, 2 18, 135, 40, 13 1 , 30, 130, 20 
FJ 188 DATA 129,14,130,20,131,30,132,186,133,8 

6, 134, 76, 135, 40, 1 36 , 2 1 8 , , , 1 38 , 54 , 137, 

193 
KC 189 DATA 138,54,137,193,136,218,135,40,134, 

76, 1 33, 86, 132, 186, 131 , 30, 130, 20, 129, 14 
NJ 190 FOR X=l TO 10: MATCH < X > =0: NEXT X 
HO 226 REM 

NH 227 REM *** READ AND MATCH *** 

PC 228 REM ***C3 SPACES3-KEY PRESSC4 SPACES!*** 
IB 229 REM 

KB 230 GUESS = 0: TEMP1=0: TEMP2 = 
IX 240 GOSUB 570 

PF 242 P=PEEK <764 > : IF P = 255 THEN 242 
JH 245 FOR S=l TO 5:S0UND , 50* ( S + GUESS+ 1 ) , 1 

,14:NEXT S:SOUND 0,0,0,0 
LD 250 GOSUB 570 
IJ 260 RESTORE 270:TRAP 575:F0R X=l TO 21:READ 

Y,Z 
DH 270 DATA 63, 103, 21 , 105, 18, 107, 58, 109, 42, 1 1 1 

,56, 113,61, 115, 57, 203 
61280 DATA 13,205,1,207,5,209,0,211,37,213,35 

,215, 8, 303, 10, 305 
DO 290 DATA 47,307,40,309,62,311,45,313,11,315 
AL 300 IF POY THEN NEXT X 
6H 305 IF NOT CHR < X ) THEN 370 
JD 307 FOR C=l TO 10: IF CHR < X > =MATCH < C > THEN 5 

75 
BN 308 NEXT C 

BH310 GUESS = GUESS+1 : POKE 66,0 
HB 320 IF GUESS=1 THEN TEMP 1 =CHR < X ): POKE 710, C 

OLR(X):POKE SCR+ Z , CHR < X ): A=Z : GOSUB 570: 

GOTO 240 
DH 330 IF GUESS = 2 THEN TEMP2 = CHR ( X ) : I F TEMP1=T 

EMP2 THEN B=Z:POKE SCR+Z , CHR < X ): GOSUB 5 

70:GOTO 360 
PK 335 POKE 71 1 , COLR<X) : POKE SCR + Z , CHR ( X ) +64 : B 

=Z:GOSUB 570:GOTO 360 
CO 340 NEXT X 

LN 350 GOSUB 570: GOTO 240 
IC 356 REM 

ID 357 REM *** PENALTY FOR *** 
LJ 358 REM *** BLANK SQUARE *** 
IF 359 REM 
JA 360 IF TEMPI AND TEMP2 THEN 430 
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AH 370 POKE 66,0:SOUND 0,42,2, 12: IF PLAYEROl 

THEN 400 
BE 380 SC0REl=SC0REl-5: POKE 712,52:F0R W=l TO 

100:NEXT W 
CF 390 GOSUB 580:POKE 7 1 2 , : POS I T I ON 3,1:? #6; 

"<:3 SPACES }r=X3IEDOJ:<: 3 SPACES>" 
DE 395 FOR W= 1 TO 300:NEXT W:POSITION 3,1:? #6 

;"MEMORY MATCH": GOTO 530 
AP 400 SCORE2 = SCORE2-5: POKE 712,52:F0R W= 1 TO 

100:NEXT W 
BP410 GOSUB 59,0:POKE 7 1 2 , : POS I T I ON 3,1:? #6; 

"C3 SPACES >rsZ3jEBE5*:<: 3 SPACES}" 
CN415 FOR W=l TO 300:NEXT W:POSITION 3,1:? #6 

: "MEMORY MATCH" : GOTO 530 

REM 

REM *** CORRECT MATCH *** 

REM 

IF TEMP10TEMP2 THEN 520 

SOUND 0, 100, 10, 10: FOR W= 1 TO 200:NEXT W 

:SOUND 0,0,0,0:COUNT=COUNT+1 

MATCH < COUNT ) =TEMP1 

IF PLAYEROl THEN 490 

SCORE1=SCORE1+10+COUNT:GOSUB 580 

POKE SCR+A-40,0:POKE SCR+B-40 , : I F COUN 

T=10 THEN 600 

PLAYER=2:G0T0 530 

SCORE2=SCORE2+10+COUNT:GOSUB 590 

POKE SCR+A-40,0:POKE SCR+B-40 , : I F COUN 

T=10 THEN 600 

PLAYER=l:GOTO 530 

FOR W=l TO 500:NEXT W 

REM 

REM *** ERASE CHARACTER *** 

REM 

SOUND 0, 0, 0, 0: GOSUB 540:POKE SCR+A,0:PO 

KE SCR+B,0:GOTO 230 

REM 

REM *** UPDATE PLAYER'S TURN *** 

REM 

POKE 66, 0:PLAYER = PLAYER+1 : IF PLAYER>2 T 

HEN PLAYER=1 
HA 550 IF PLAYER=1 THEN POSITION 0,20:? #6; "pi 

ayer CQ> " : POS I T I ON 12,20:? #6;" 

<8 SPACES} ": RETURN 
HD 560 IF PLAYER = 2 THEN POSITION 12,20:? #6;"p 

layer CR> " : POS I T I ON 0,20:? #6;" 

{8 SPACES} ": RETURN 
IA 570 POKE 764,255:P0KE 66,1:RETURN 
EP571 POKE 764, 255:RETURN 
IC 572 REM 





IB 427 




PN 428 




ID 429 




DF 430 




PP 431 




IE 432 




en 450 




HI 460 




6L 470 




OD 480 




HO 490 




6F 500 




NH 510 




EL 520 


; \ 


IC 527 


HH 528 


IE 529 


J 


PD 530 




ID 537 




ND 538 




IF 539 


\ 


GN 540 


\ 
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IF 573 REM *«* INVALID KEY PRESSED *** 

IE 574 REM 

LC 575 POSITION 3,1:? #6;" H.HHW.M JHT " : FOR W 

=1 TO 200:NEXT W 
EH 576 POSITION 3, Is? #6; "MEMORY MATCH":eOTO 

240 
IH 577 REM 

OG 578 REM *** UPDATE CURRENT SCORE *** 
IJ 579 REM 
GI 580 POSITION 0,22:? #6;"<5 SPACES} " : POS I T I O 

N 2,22:? #6; SCORE1 : RETURN 
NA 590 POSITION 12,22:? #6;"<:5 SPACES} " : POS I T I 

ON 14,22:? #6 ; SC0RE2 : RETURN 
IJ 597 REM 
AH 598 REM ***<4 SPACES>END OF GAMEC4 SPACES}* 

t* 
IL 599 REM 
HD 600 POKE 66,0:FOR W=l TO 1 00 : C = PEEK ( 53770 ) : 

POKE 712,C:NEXT W:POKE 712,0 
DG610 IF SCORE1 >SC0RE2 THEN POSITION 1,22:? # 

6; " 23BDE " 



GI 620 IF SC0REKSC0RE2 THEN POSITION 13,22:? 

#6; "3BGE M 
HP 630 IF SC0RE1=SC0RE2 THEN POSITION 8,22:? # 

&j "BH1" 
KF 635 POSITION 0,20:? #6;"player CQ> " : POS I T I O 

N 3,0:? #6;"esc TO END OR" 
BF 640 POSITION 12,20:? #6; "player {R}":POSITI 

ON 3,1:? #6; "PRESS EnE KEY":GOSUB 571 
PL 650 P = PEEK (764) : IF P = 255 THEN 650 
IK 655 IF P = 28 THEN CLR : C30SUB 571: POKE 66,0:G 

RAPHICS 0:END 
BK 660 GOSUB 571:GRAPHICS 17:CLR : DL = PEEK ( 560) 

+256*PEEK <561 ) +4:GOTO 50 
IH 667 REM 

DH 668 REM ***<3 SPACES} REDEF I NE CHSET *** 
IJ 669 REM 
AN 670 CHSET=(PEEK<106)-8) *256: IF PEEK(CHSET+9 

*8)=28 THEN RETURN 
KA 680 FOR 1=0 TO 512:POKE CHSET + 1 , PEEK ( 57344 + 

I):NEXT I:RESTORE 720 
LH 690 READ A: IF A = -l THEN SOUND , , , : RETUR 

N 
HG 700 FOR 3 = TO 7:READ B:SOUND , B , 1 0, 1 : POK 

E CHSET+A*8+J,B:NEXT J 
HA 710 GOTO 690 

AH 720 DATA 1,126,126,126,60,24,24,24,60 
KN 730 DATA 2,15,15,15,15,31,127,127,7 
ED 740 DATA 3,0,12,25,51,255,24,12,6 
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OL 750 DATA 4,24,28,30,16,17,255,127,63 

OD 760 DATA 5,20,93,107,62,20,28,20,119 

CD 770 DATA 6,28,126,52,62,60,48,127,124 

Ktl 780 DATA 7,102,255,219,255,102,60,36,102 

IB 790 DATA 8,60,103,253,244,224,116,29,15 

PK 800 DATA 9,28,127,255,126,28,8,8,255 

PD810 DATA 10,0,0,0,120,200,254,255,102 

LC 820 DATA 11,52,44,52,44,52,44,52,44 

FC 830 DATA 12,126,219,165,219,219,165,219,126 

BE 840 DATA -1 
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Chapter 3 

Alphabone Hunt 



Glenn M. Varano 



Learn the alphabet while sniffing out bones in this delightful 
alphabetizing game for children ages five to nine. 

I use an Atari 400 in my first-grade classroom, but finding 
quality programs at the appropriate level has proved to be 
difficult. As a result, I've developed several educational pro- 
grams myself. Here is one of them, an alphabetical order pro- 
gram (for ages five to nine) called "Alphabone Hunt." 

After a brief initialization, during which characters are re- 
defined and player/missile graphics are enabled, the screen 
shows a dog in a doghouse and ten bones scattered about the 
yard. A starting letter is shown at the bottom of the screen, 
and the child must locate the next ten letters in order. 

Letters are revealed by moving the dog (with the joystick) 
until it touches the middle of a bone. That reveals a hidden 
letter. If it is the next letter in the alphabetical sequence, the 
child pushes the fire button; if the child is correct, the letter 
will take its place at the bottom of the screen. The dog wraps 
around the screen horizontally but may not cross the fences at 
the top and bottom. 

After an incorrect answer, there will be a time penalty 
and the dog is returned to the doghouse. Obviously, the child 
will do best by remembering the locations of as many letters 
as possible. 

The game continues until all letters have been placed in 
order. Total time will be displayed, and a short song will be 
played. Pushing the START button during play resets the 
game to the beginning. 

I've included numerous REM statements for those who 
would like to enhance the game. All REM statements can be 
safely omitted to save on typing and memory. 

Alphabone Hunt 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

PB 10 GOSUB 32000:CLR 

GC 15 GOSUB 10000:GOSUB 20000:GOSUB 20900:GOSU 

B 6000:POKE 20,0:POKE 19,0:POKE 18,0:GOT 

O 100:REM RESET TIMER 

OF 40 S = STICK (0) : REM JOYSTICK ROUTINE FROM 

COMPUTE !'S 2ND BOOK OF ATARI — PAGE 2 
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IP 50 DX=(S = 5 OR S = 6 DR S=7)-(S = 9 OR S=10 OR S 

= 11) 
K8 60 DY=(S = 5 OR B = 9 OR S=13)-(B = 6 OR S=10 OR 

S=14) 
LC 65 POKE 53278,1: REM RESET COLLISION REGISTE 

R 
EH 70 RETURN 
GP 100 S = 0: GOSUB 40 
BC 105 IF PEEK <53279)=6 THEN GAME=l:GOTO 15:RE 

M START BUTTON TO RESTART GAME 
PN110 IF NOT <DX OR DY) THEN 100 
CM 115 POKE 53279,0 

6H 120 X=X+DX:IF X>212 THEN X = 35 
FL 122 IF X<35 THEN X=212:REM LETS DOG WRAP AR 

OUND HORIZONTALLY 
HA 125 POKE 53248, X : REM HOR I Z POSITION 
EK 130 Y = Y + DY:IF Y>85 THEN Y = 85 
NC 132 IF Y<20 THEN Y = 20:REM LIMITS DOG VERTIC 

AL MOVEMENT 
FA 133 IF DX<0 THEN P0* < Y , Y+8) =T* : GOTO 140 
BM 135 P0* <Y, Y+8)=S*:REM CHANGES DOG FACING 
BH 140 IF PEEK(53252)< >1 OR DX = THEN 100:REM 

NO COLLISION 
IK 149 REM ***COLLISION WITH BONE*** 
LK 150 K=< (X-56) /16) +1 : IF KOINT(K) THEN 100:R 

EM CHECKS FOR CORRECT HOR I Z POS 
IL 160 ON K GOSUB 501,502,503,504,505,506,507, 

508,509,510 
FC 170 POSITION XX, YY:? #6 ; BL* : POS I T I ON XX, YY: 

? #6; CHR* (LTR (K) ) : FOR T=l TO 200:NEXT T 

sPOSITION XX, YY:? #6;"!":G0T0 7000 
LN 500 REM ***VARIABLES FOR POSITIONS*** 
CP501 XX=1:YY = 8: RETURN 
CM 502 XX = 3: YY = 2: RETURN 
FP 503 XX = 5: YY=1 1 : RETURN 
BH 504 XX = 7: YY=16:RETURN 
DF 505 XX = 9: YY = 2:RETURN 
JB 506 XX=1 1 : YY=13: RETURN 
6E 507 XX = 13: YY = 4: RETURN 
01508 XX=15: YY=14:RETURN 
JJ 509 XX = 17: YY=12: RETURN 
6F510 XX=19s YY = 5:RETURN 
BE 3999 REM ***GAME OVER*** 
IL 4000 TIME=INT( (PEEK< 19) *256 + PEEK <20) ) /60) :S 

EC=TIME- ( INT (TIME/60) *60) 
OF 4005 POSITION 9,10:7 #6 ; I NT ( T I ME/60 );":";: I 

F SEC>9 THEN ? #6;SEC:GOTO 4010 
CH 4006 ? #6;"0" ; SEC 
AL 4010 GOSUB 6000 
CH 4020 GAME=l:GOTO 15 
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PH 5999 


LB 6000 


KB 6010 


F6 6020 


KL 6030 


UK 6040 


Bit 6100 



HA 6 1 1 



HO 6150 


60 6499 


GH 6500 


Kit 6510 


HI 6999 


6H 7000 


KD 7010 



BP 7015 



REM ***SONG*** 

RESTORE 6100 

READ N,D 

IF N=-l THEN SOUND , , , : RETURN 

SOUND 0,N, 10, 10:FOR S=l TO D:NEXT S 

GOTO 6010 

DATA 81,64,60,64,81 , 64,96,64, 121 , 128, 7 

2, 32,81,32, 96,32, Bl , 64, 108,256 

DATA 81,64,64,64, 72,64,81 ,64,91 , 128,64 

,32,72,64,81 , 256 

DATA -1,-1 

REM ***GOOD SOUND*** 

FOR N=25 TO 1 STEP -l:SOUND 0,N,10,10: 

NEXT NsSOUND 0,0,0,0 

RETURN 

REM ***CHECK FOR LOW LETTER*** 

FOR L=l TO 10 

IF CHR* (LTR <K) )< >LOW* (M, M) AND STRIG(0 

)=0 THEN GOSUB 8000: GOTO 100 

IF CHR* (LTR <K) ) = LOW* (M, M) AND STRIG(0) 

=0 THEN GOSUB 7500: GOTO 100 

NEXT L 

GOTO 100 

REM ***MOVES LETTER TO BOTTOM OF SCREE 

N*t* 

M=M+1 :POSITION XX, YY:? #6;" ":POSITION 
M+3,21:GOSUB 6500:? #6 ; CHR* < LTR ( K ) ) 
7510 IF M>10 THEN GOTO 4000:REM GAME OVER 
7520 RETURN 

7999 REM * * *PENALT Y * * * 

8000 FOR N=l TO 500:SOUND 0,N,8,10: 
OUND 0, 0, 0, 0: Y=45: X=129: GOSUB 

8010 RETURN 

9999 REM ***DRAW SCREEN*** 

10000 IF GAME>0 THEN ? #6;CHR*<125) 
010 

GRAPHICS 17:SETCOLOR 4 , , 4 : SETCOLOR 1 
, 2, 14:SETCOLOR , 1 5 , 1 : SETCOLOR 2,8,0 
POKE 756, PEEK < 106) +5: REM RESETS 
ER TO NEW CHARACTER SET 
POSITION 3,2:? #6;"!<:5 SPACES> ! ' 
TION 19,5:? #6;"!":REM ! =BONE 



7018 
7020 
7499 



01 7500 



01 
KO 
HP 
CB 

KJ 

LC 
FJ 



JE 10005 

HH 10010 

BN 10015 

FE 10020 

OF 10030 

IK 10040 

HE 10050 



NEXT N: 
201 10 



GOTO 10 



POINT 



POSI 



POSITION 

#6; " ! " 
POSITION 
4: ? #6; " 
POSITION 
? #6; " ! " 
POSITION 



1,8:? #6; 



POSITION 13,4: 



11,13:? #6; ■'!": POSITION 15,1 



5,11:? 
17, 12: ' 



#6: 



#6: 



POSITION 7, 16: 



123 



Chapter 3 



NH 10060 POSITION 9,7:7 #6; "Baffl" : POS I T I ON 9,8s 
7 #6; "aag": POSIT I ON 9,9:7 #6;"3 3":RE 
M DOGHOUSE 

HP 10070 POSITION 0,19:7 #6; "EKE>EKE>0<:E>E3<E3 EJ 

CE3EKE>EKE>Ea<:E}EKE}EKE} " : REM FENCE 
HL 10075 POSITION 0,0:7 *6 ; "EKE}EKE}£3<:E>EKE>E3 

{E>EKE>EKE>EKE}E3<E>ia<:E> " 
NK 10090 RETURN 
FE 19999 REM «**PM INIT***USE STRINGS TO DEFIN 

E AND MOVE PLAYERS VERTICALLY 
CM 20000 IF GAME>0 THEN 20110 
HL 20010 DIM X*(l) 
BB 20020 A=ADR(X*) 

EL 20040 B=INT ( (A-512) / 1 024 + 1 ) * 1 024 
PO 20050 DIM F*(B-A+511> 
BH 20060 DIM P0* ( 128) , PI* ( 128) , T* (8) , S* (8) , LTR 

( 10) , BL* ( 1 ) , REPEAT* < 10) , LOW* (10) : REPE 

AT*=" C10 SPACES? " :BL*=" " 
BL 20070 POKE 559,46:POKE 53277, 3:POKE 54279,1 

NT (B/256) 
KG 20080 POKE 623,4:REM SETS PLAYFIELD PRIORIT 

Y OVER PLAYER 
BL 20090 POKE 704, 50: REM PLAYER0<DOG) COLOR 
CK 20100 S*=" t, 1 DNCTABJ ! DEC, > " : T*= "<:,}": T* ( 2 ) = 

CHR* <34) : T* (3) = " r C DELETE } >" : T* (6>=CHR 

* (34) : T* (7) ="wt, > " : REM STRINGS FOR DO 

GS 
PH 201 10 P0* = CHR* (0) : P0* (128) =CHR* (0) : P0* (2) =P 

0*:REM CLEARS PLAYER0 
NF 20120 RETURN 

EF 20899 REM ***RESTART INIT*** 
FB 20900 REPEAT*=" C10 SPACES3- " : M= 1 
NA20910 Y = 50: X=129:REM STARTING POSITION OF D 

OG 
FB 20920 P0* (Y, Y + LEN(S*) )=S* 
LH 20930 POKE 53248, X 
BJ 20999 REM ***RANDOMLY SELECTS LETTERS FOR B 

ONES 
LE21000 R=INT (RND (0) *16) 
JN 21005 FOR K=l TO 10 
AB21010 J = INT (RND (0) *10) +1 

EI 21020 IF REPEAT* ( J, J) ="*" THEN 21010 
FA 21030 REPEAT*(J,J)=" *" :LTR(K) =R + 97 + J : LOW* ( J 

, J) =CHR* (R+97+J) 
IB 21040 NEXT K 

HH21050 POSITION 4,21:7 #6; CHR* ( R + 97 ) 
NJ 21060 RETURN 
PD 31999 REM 
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DA 32000 



JG 



!010 



HI 32015 
NP 32020 

JF 32030 
PB 32040 

KH 32100 

DD 32 101 
OB 32102 
Pft 32103 

HC 32104 



? CHR 

HICS 

756, S 

POSIT 

SITIO 

6; "G 

POSIT 

FOR Z 

44 + Z ) 

READ 

FOR Y 

NEXT 

DATA 

55 

DATA 

DATA 

DATA 

255 

DATA 



*<125>:POKE 1 06 , PEEK ( 1 06 > -9 : GRAP 

18: START= (PEEK < 106) +5) *256: POKE 

TART/256: POKE 752.1 

ION 3,2-.? #6: "EDOJirmiillll GHEST'sPO 

N 9,5:? #6; "13«:». POSITION 5,6:? # 

M. VARANO" 

ION 3,9:? #6;"please stand by" 

=0 TO 1023:POKE ST ART+Z , PEEK ( 573 

:NEXT Z:RESTORE 32100 

X: IF X=-l THEN RESTORE : RETURN 

=0 TO 7:READ Z : POKE X+Y+START,Z: 

Y:GOTO 32030 

40, 128, 192, 224, 240, 248, 252, 254, 2 

8,0, 102, 255, 255, 255, 102, 0,0 

56, 1,3,7, 15, 31, 63, 127, 255 

256, 255, 255, 255, 255, 255, 255, 255, 



-1 
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Pyramid Math 



Stephen Levy 



Colorful graphics and exciting sound make "Pyramid 
Math" an excellent math tutor for young children, It's a 
fun-to-play game too. 

"Pyramid Math" is a simple and straightforward math contest 
for two players. As each player answers a problem correctly, 
he or she builds another part of the pyramid. The winner is 
the player who first completes a pyramid by answering ten 
problems correctly. 

Players choose addition, subtraction, multiplication, or di- 
vision problems, and the numbers used in the problems are 
generated randomly. The upper limits can be changed by 
adjusting the italicized number, as shown below. 

Note that the actual upper limit is one less than the num- 
ber given. For example, if the italicized number is 50, the up- 
per limit is 49. Be careful with subtraction; do not make Q2's 
limit greater than Ql's. Note that division is presently set for 
one-digit answers and one-digit divisors. Ql is the divisor and 
Q2 is the dividend; in other words, problems take the form 
Q2/Q1. 

:on Line 

INT(RND(0)*50):Q2 = INT(RND(0)*50) 
INT(RND(0)*50):Q2 = INT(RND(0)*40) 
INT(RND(0)*22):Q2 = INT(RND(0)*22) 
INT(RND(0)*10):Q2 = INT(RND(0)*9)*Q1 

If you prefer to use different colors, change line 433. 
Remember, SETCOLOR 0,8,14 sets the print color to white. 

Notice that the problems appear in the text window in 
large print, while the pyramid is done in graphics mode 3. 
This is accomplished by lines 410, 420, and 430. 

Pyramid Math 

For error-free program entry, rend "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

GA 50 DIM YES* (3) , BUZZ* ( 1 ) , CLEAR* ( 1 ) •, PLAYER1* ( 
20) , PLAYER2* (20) : BUZZ*=CHR* (253) : CLEAR* = 
CHR* ( 125) : OPEN # 1 , 4 , , " K : " 

KN 60 DIM P* ( 10) : PLAYER1*=" " : PLAYER1* (20) = " " 
: PLAYER 1* ( 2 ) =PLAYER 1 * : PL A YER2* = PLAYER 1 * 

BH 100 REM INTRODUCTION 
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Line 




Add 


610 


Ql = 


Subtract 


810 


Ql = 


Multiply 


1010 


Ql = 


Divide 


1210 


Ql = 
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pp 1 10 

FN 120 
HE 130 
PK 150 



DK 155 

DH 160 

KM 170 

LK 180 

CN 190 



HA 195 



HK 200 



CO 210 



AB 215 

NB 220 
KB 225 

NP 230 



JK 235 
CP 240 
OE 245 
CP 250 
UN 300 

GF 305 

CF 310 

M 3 20 
IJ 325 
EJ 330 



THI5 IS H TWO PLfi' 



GOME, PLOVER ONI 



GRAPHICS 18:SETCOLOR 4 , 4 , 2 : SETCOLOR 0,1 
3,14:TRAP 1 0000 : SETCOLOR 1,12,3 
POSITION 4.3:PRINT #6; "PYRAMID MATH":PO 
SITION 2,5:PRINT «6: " IT«gCiM:jgr:ra=<;TcT:lSla " 
POSITION 3,10:PRINT *6; "HErTsIIIEtEJBLailiia 
E":FOR W=l TO 2500:NEXT W 

GRAPHICS l:SETCOLOR 4 , 1 3, 1 3 : SETCOLOR 2, 
13, 13: POSITION 5,5:PRINT #6;"D0 YOU NEE 
D" :TRAP 10000 

POSITION 4,7:PRINT #6; " INSTRUCTIONS?" 
INPUT YES*: IF YES* ( 1 , 1 ) <> " N " AND YES* ( 1 
, i)<>"Y" THEN GOTO 10000 
IF YES* ( 1 , 1 ) = "N" THEN 300 

GRAPHICS 18:SETCOLOR 4 , 8, 4 : SETCOLOR 2,1 
3,7 

POSITION 4,0:PRINT #6 ; " I NSTRUCT I ONS " : PO 
SITION 0,3:PRINT #6; 
SI" 

POSITION 2,4:PRINT #6: 
":POSITION 2,5:PRINT # 6 ; " HiI=^B=HlHHI e a 
ch" 

POSITION 0,6:PRINT #6;"player will be g 
i ven" :POSITION 0,7:PRINT #6:"a problem 
to solve. " 

POSITION 2,8:PRINT *6: " EMHHB J J*^^ ■*=•■.?* J ■! 
":POSITION 0,9:PRINT #6; "builds the pla 
yer ' s" 

POSITION 6,10:PRINT #6: "PYRAMID" : POSITI 
ON 3,11:PRINT #6;"PRESS RETURN" 
IF PEEK <764) =255 THEN 220 

POKE 764, 255: GRAPHICS 18:SETCOLOR 4,6,5 
POSITION 0,2:PRINT *6:"THE FIRST PLAYER 
TO":POSITION 1,4:PRINT #6;"FINISH BUIL 
DING THE" 

POSITION 3,6:PRINT #6; "PYRAMID 
POSITION 3,9:PRINT #6; 
IF PEEK (764) =255 THEN 
POKE 764,255 



ratals 

!45 



WINS" 



GRAPHICS 2: 

12 

TRAP 10010; 

POSITION 4. 

SITION 4,1: 



SETCOLOR 4, 9, 4: SETCOLOR 0,9, 



LN=300 

0:PRINT #6; "PLAYER one's":PO 
PRINT #6; "NAME PLEASE..." 
INPUT P*,: PLAYER 1*<1,LEN(P*> )=P*: POSIT IO 
N 5,2:PRINT #6 ; PLAYER 1 *: PR I NT CLEAR* 
HH=ASC (PLAYER1* ( 1 , 1 ) ) : IF HH<65 OR HH>90 

THEN 10010 
POSITION 4,5:PRINT #6;"PLAYER two's":PO 
SITION 4,6:PRINT #6; "NAME PLEASE..." 
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HO 400 


IN 403 


HE 405 


GE 410 


AC 420 


CL 430 



BC340 INPUT Pt: PLAYER2* ( 1 , LEN <P*> ) = P*: POSITIO 

N 5,7:PRINT #6 : PLAYEF.2* : PR I NT CLEAR* 
1(1345 HH = ASC (PLAYER2* < 1 , 1 ) ) : IF HH<65 OR HH>90 

THEN 10010 
BJ 360 GRAPHICS 17:SETC0LDR 4.5,10 
6N370 TRAP 10010: LN=360 
HG 380 POSITION 4,0:PRINT #6; "WHAT TYPE":POSIT 

ION 4,1:PRINT #6; "OF PROBLEMS" : POS I T I ON 
4,2:PRINT #6; "DO YOU WANT?" 
JE 390 POSITION 2,4:PRINT #6:"n r:ltM<:tt" ' :PQSITI 

ON 2,6:PRINT * 6 : " aEQIIiIIEEEHII£ " 
CL 395 POSITION 2,8:PRINT #6: " fcmZllim*4-imS±W " : P 

OSITION 2,10:PRINT #6: " FT>> C» Ji | >>< 1 r? " 

GET #1.HH:IF HH<49 OR HH>52 THEN 10020 

HH=HH-48 

TRAP 40000 

POKE 82, 0: GRAPHICS 3 : DL=PEEK ( 560 ) +PEEK < 

561 ) *256 

IF PEEK<DL><>66 THEN DL=DL+l:GOTO 420 

POKE DL,70:POKE DL+3,7:P0KE DL+4,6:P0KE 
DL+5,65:P0KE DL+6 . PEEK ( DL+7 ): POKE DL+7 

, PEEK<DL+B) 
JA 433 SETCOLOR 4 , 8 , 6 : SETCOLOR 2 , 5 , 1 2 : SETCOLOR 

0,8, 14 
KG 4 35 COLOR 3:F0R LINE=11 TO 13:PL0T 0,LINE:D 

RAWTO 39,LINE:NEXT LINE 
KN 437 COLOR 2 : FOR LINE=14 TO 16:PL0T 0,LINE:D 

RAWTO 39,LINE:NEXT LINE 
DE 440 ON HH GOTO 600,800,1000,1200 
FJ 600 R=l : ROW1 = 10: ROW2=10 

LA 610 01 = 1 NT (RND (0) *50) : 02= I NT (RND (0) *50) 
HE 615 TRAP 10030: LN = 615 
II 620 IF R=l THEN GOSUB 10100 
IL 630 IF R = 2 THEN GOSUB 10110 
EN 640 PRINT " " ; Q 1 ; " + ";Q2s" = " ; : ON R GOTO 

680,720 
NH 680 INPUT ANS:PRINT 

PC 690 IF ANS = Ql+02 THEN GOSUB 6000 
NA 700 IF ANS<>Q1+Q2 THEN PRINT BUZZ*:GOSUB 10 

100: PRINT "{5 SPACES3 " ; Ol ; " + ";Q2;" = 

";Ql+02:FOR W=l TO 700:NEXT W 
GD710 R = 2:G0T0 610 
NC 720 INPUT ANS: PRINT 

00 730 IF ANS = Ql+02 THEN GOSUB 6100 
NF 740 IF ANSOQ1+Q2 THEN PRINT BUZZ*:GOSUB 10 

110:PRINT "<:5 SPACES? " ; Ql ; " + ";Q2;" = 

";Dl+Q2:FOR W= 1 TO 700:NEXT W 
GG 750 R=l:GOTO 610 
FL 800 R=l : ROW1 = 10: ROW2=10 
LB 810 Q1 = INT<RND(0)*50) : Q2=INT (RND (0) *40> 
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DD 812 


HI 


815 


IK 820 


IN 830 


FE 840 


BC 880 


PS 890 


NI 


900 


BH 910 


AN 920 


PC 930 


NN 940 


6K 950 


IE 


1000 


HH 


1010 


UK 


1015 


LD 


1020 


LG 


1030 


PK 


1040 


DL 


1080 


Bfl 


1090 


CB 


1 100 


U 


1110 


D6 


1 120 


BI 


1 130 


CL 


1 140 


LH 


1 150 


IG 


1200 


R 


1210 


m 


1211 


HO 


1215 


LF 


1220 


LI 


1230 


LN 


1240 


m 


1280 


CD 


1290 


HD 


1300 



IF QKQ2 THEN 810 
TRAP 10030:LN=815 
IF R=l THEN BOSUB 10 100 
IF R=2 THEN BOSUB 10110 
PRINT " " ; Ql ; " - " ; Q2; " 
880, 920 
INPUT ANS 

IF ANS=Q1-Q2 THEN BOSUB 6 
IF ANS<>Q1-Q2 THEN PRINT 
100:PRINT "{4 SPACES>";Q1 
";Q1-Q2:F0R W= 1 TO 700:NE 
R=2:60TO 810 
INPUT ANS 

IF ANS=Q1-Q2 THEN BOSUB 6 
IF ANS<>Q1-Q2 THEN PRINT 
110:PRINT " C4 SPACES 3 "; Q 1 
";Ql-Q2:FOR W= 1 TO 700:NE 
R=1:60T0 810 
R=l : ROW1=10: ROW2=10 
Q1=INT(RND<0)*12) :Q2=INT 
TRAP 10030: LN=1015 
IF R=l THEN BOSUB 10100 
IF R=2 THEN BOSUB 10110 
PRINT " " ; Ql ; " X ";Q2; " 
1080, 1 120 
INPUT ANS 

IF ANS=Q1*Q2 THEN BOSUB 
IF ANSOQKQ2 THEN PRINT 
0100:PRINT "<:4 SPACES}"; 
= ";Q1*Q2:F0R W= 1 TO 700 
R=2:BOTO 1010 
INPUT ANS 

IF ANS=Q1*Q2 THEN BOSUB 
IF ANSOQl*Q2 THEN PRINT 
0110:PRINT "<:4 SPACES]"; 
= " ; Ql *Q2: FOR W=l TO 700 
R=l:BOTO 1010 
R=1:ROW1=10:ROW2=10 
Q1 = INT <RND (0)*10):Q2=INT 
IF Q1=0 OR Q2=0 THEN 121 
TRAP 10030: LN=1215 
IF R=l THEN BOSUB 10100 
IF R=2 THEN BOSUB 10110 
PRINT Q2;" DIVIDED BY " ; 
OTO 1280, 1320 
INPUT ANS 

IF ANS=Q2/Q1 THEN BOSUB 
IF ANSOQ2/Q1 THEN PRINT 
0100:PRINT " ";Q1;" INTO 
2/Ql:F0R W= 1 TO 700:NEXT 



" ; : ON R BOTO 



000 
BUZZ*:BOSUB 10 

. " _ " . nr> . " = 

f p ■***. s 

XT W 



100 

BUZZ*:BOSUB 10 
; " - " ; Q2; " = 
XT W 



(RND (0) *12) 



" ; : ON R BOTO 



6000 

BUZZ*:BOSUB 1 
Ql;" X " ; Q2; " 
:NEXT W 



6100 

BUZZ*:BOSUB 1 
Ql ; " X " ; Q2; " 
:NEXT W 



(RND (0) *9) *Q1 




Ql ;"=";: ON R S 



6000 
BUZZ*:BOSUB 1 

";Q2;" IS " ; Q 
W 
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LN 1310 

DI 1320 

BP 1330 

HI 1340 



Mfl 1350 
FD 6000 
IC 6010 

IH 6020 

HL 6030 
OH 6040 

Dtt 6050 
IE 6060 
FI 6100 
IH 61 10 

IN 6120 

HL 6130 
AF 6 1 4 

DO 6150 
IS 6160 
LG 7000 
NF 7005 
01 7010 



MA 7020 

HP 7055 
JP 7056 
KM 7060 

FC 7 100 

a 7 i 1 

OD 7120 
BN 7130 

EN 7 140 
HA 7150 

IB 7 160 
KG 7170 
m 100 



R=2:GOTD 1210 

INPUT ANS 

IF ANS=Q2/Q1 THEN GOSUB 6100 

IF ANBOQ2/Q1 THEN PRINT BUZZ*:GOSUB 1 



01 10: PRINT " " ; Bl ; " 
2/01:F0R W=l TO 700 

R=l:GOTO 1210 
R0W1=R0W1-1 : SOUND 



INTO 
NEXT 



q: 



is 



Q 



W 



70, 
OR 



10, 10 
ROWl=l 



THEN COL 



OR R0W1=2 THEN COL 



ROW1 




IF R0W1=7 OR ROWl=4 

OR 1 : GOTO 6040 

IF ROWl=8 OR R0W1=5 

OR 2:GOTO 6040 

COLOR 3 

PLOT 10-ROW1 , ROW1 : DRAWTO ROW1+10, 

FOR W=l TO 20:NEXT W:SOUND 0.0, 0. 

IF ROW1O0 THEN RETURN 

POP : P*=PLAYER1*: GOSUB 7000:GOTO 7100 

R0W2=R0W2-1 : SOUND 0,200,10,8 

OR ROW2=4 OR R0W2= 1 THEN COL 

6140 

OR ROW2=5 OR R0W2=2 THEN COL 

6140 



IF R0W2=7 

OR l:GOTO 

IF R0W2=8 

OR 3: GOTO 

COLOR 2 

PLOT 29-R0W2, R0W2: DRAWTO R0W2+29 

FOR W=l TO 20:NEXT WrSOUND 0,0,0 

IF ROW2O0 THEN RETURN 

POP : P*=PLAYER2*: GOSUB 7000 

TIMES=0 

FOR XX=1 TO 10 

POKE 708, PEEK (709) : POKE 709 

SOUND 0, XX*20, 10, 8: POKE 710 

POKE 712, PEEK (708) 

POKE 709, XX*20: FOR W=l 

MES=TIMES+1 : NEXT XX 

THEN 7005 





ROW2: 




GOTO 7100 



PEEK (710) 
PEEK (712) 



TO 25:NEXT W:TI 



IF TIMES<15 
SOUND 0,0,0. 
RETURN 

GRAPHICS 18:SETCOLOR 4.8,6:POKE 82,2 
FOR XX=1 TO 10:PRINT #6;" ";P*:" WINS! 
":NEXT XX 

FOR W=l TO 500: NEXT W:TRAP 40000 
GRAPHICS 0:POSITION 5,10:PRINT "Play A 
gai n" : INPUT YES* 
IF YES* ( 1 , 1 ) =" Y" THEN RUN 

GRAPHICS 17:POSITION 5.5:PRINT #6;"GAM 
E OVER" 

FOR W=l TO 400:NEXT W 
END 
PRINT BUZZ*:PRINT #6; CLEAR*: SOTO 150 
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PL 10010 PRINT 

EP 10030 PRINT 

DL 10100 PRINT 

ON 101 10 PRINT 



BUZZ$:GDTO LN 

BUZZ*:PRINT CLE AR* : GOTO LN 
CLEAR*;" "; PLAYERlt; : RETURN 
CLEAR*;" " : PL A YER2* ; : RETURN 
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Dot Drawing 

Robert D. Goeman 



Here's a drawing program that lets students create their 
own connect-the-dots pictures, It helps develop visual 
skills too. 

"Dot Drawing" uses less than 2K of memory for the body of 
the program. When the program is running, the entire mem- 
ory requirements total less than 13K. The program is entirely 
in BASIC and can be modified by those with limited program- 
ming skill and an Atari reference manual. 

The program places a flashing cursor in the upper left- 
hand corner of an otherwise darkened screen. Pressing the fire 
button marks the cursor's location as the starting point for a 
drawing; in the text window, the X and Y coordinates of that 
location will be displayed. 

As the cursor is moved, each subsequent pressing of the 
fire button enters a new X and Y point and displays the new 
coordinates in the text window. To connect the points and 
draw a picture, press D. 

After the drawing is complete, the cursor remains at its 
last position, allowing you to expand your creation. You can 
clear the screen by pressing BREAK and running the program. 
If you attempt to save more than 254 X,Y points without 
drawing the picture, the program will automatically jump to 
the drawing routine and then return to the beginning of the 
program. 

About the Program 

Lines 1-43 set the graphics mode and control cursor move- 
ment by reading the joystick. Line 11 initializes the memory 
location for storing the X and Y coordinates; that line also 
initializes variable ST, which counts the number of points en- 
tered in a given drawing. 

Lines 45-50 read the keyboard and the joystick. POKE 
764,255 returns the keyboard to a "no keys pressed" condition 
after D has been read. 

Lines 100-110 are used to enter X coordinates which are 
greater than 255, since numbers larger than 255 cannot be 
held in a single memory location. Lines 115-116 enter the 
present coordinate values and then move the present memory 
locations ahead in preparation for the next set of coordinate 
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values. Lines 200-215 then reinitialize memory locations and 
X, Y values for the drawing routine and plot the first point of 
that routine. 

Lines 220-240 do the actual drawing. T— 1 is the number 
of points held in memory locations, minus the first point 
which has already been plotted. 

Dot Drawing 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

PI 1 X=l : Y=l 

JP 10 GRAPHICS 8:SETC0L0R 2, 1 6 , 1 : COLOR 5 

IN 11 L=1536: Ll = 1537: L2=1538: T = 0: ST = 

NL 14 IF STICK(0>=15 THEN X = X:Y = Y 

AN 15 IF STICK(0)=11 THEN X = X-1 

BG 19 IF STICK<0)=14 THEN Y = Y-1 

SF 20 IF STICK<0)=9 THEN X = X-1:Y = Y-H 

JE 25 IF STICK(0)=10 THEN X = X-1:Y = Y-1 

BF 26 IF STICK<0>=5 THEN X=X+1:Y=Y+1 

SJ 27 IF STICK<0>=6 THEN X = X + 1:Y = Y-1 

AH 30 IF STICK(0) = 13 THEN Y = Y+1 

0C 35 IF STICK<0>=7 THEN X = X + 1 

BJ 40 IF X<1 THEN X=319 

BH41 IF X>319 THEN X=l 

CC42 IF Y<1 THEN Y=189 

CF 43 IF Y>189 THEN Y= 1 

IF 45 IF PEEK<764>=58 THEN POKE 764,255:G0T0 2 

00 
AN 50 IF STRIG<0)=0 THEN T = T+l:SOUND 1,30,10,8 

:FOR P=l TO 25:NEXT P:SOUND 1,0,0,0:GOTO 
100 
DN 55 PLOT X,Y:FOR P= 1 TO 15:NEXT P:COLOR 0:PL 

OT X,Y:COLOR 5:G0T0 15 
NJ 100 IF X<=255 THEN XX = 
HE 105 ST=ST+1:IF ST> = 254 THEN 200 
PL 110 IF X>255 THEN X X = X -255 : X = 255 
HE 115 POKE L,X:POKE H,XX:POKE L2.Y 
6L116 L = L + 3:Ll=Ll+3:L2 = L2 + 3 
L0 117 X = X + XX:? X;" ";Y:? 
DC 120 GOTO 15 

HE 200 L=1536sLl = 1537:L2=1538 
HI 210 X = PEEK(L) : XX = PEEK<L1 ) : Y = PEEK<L2) 
L6215 X = X + XX:PLOT X,Y 
10 220 FOR P=l TO T-l 
FF 222 SOUND 1 „ 220 , 1 . 8 : FOR PP=1 TO 10:NEXT PP 

:SOUND 1,0,0,0 
6H 225 L = L + 3:Ll=Ll+3:L2 = L2 + 3 
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UK 230 X = PEEK (L) : XX=PEEK<L1 ) : Y = PEEK <L2) 

EK 235 X = X + XX:DRAWTO X,Y 

LP 237 ? X; " "; Y:? 

CF 240 NEXT P 

EE 24 2 IF ST> = 254 THEN 1 

DB 245 GOTO 11 
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Art Class 

Mark Poesch 
Tim Kilby 
Steve Steinberg 



"Art Class" is an outstanding example of the graphics 
capabilities of your Atari computer. It can be an excellent 
teaching tool, a fine introduction to computers, or simply 
great entertainment for a rainy day. 

The Atari GTIA chip is getting to be like the weather — every- 
body talks about it, but nobody does very much with it. 

Until now. 

"Art Class" is a drawing program utilizing the GTIA's 
graphics mode 10. It is designed for use by small children, who 
can use the cursor much like they would use felt coloring pens. 

Coloring with the Cursor 

We have deliberately kept Art Class simple so children will be 
comfortable with the program. Even so, it boasts several fea- 
tures that will be of interest to programmers. 

The screen display consists of a blank GRAPHICS 10 
screen, a "color palette" showing the numbers 0-8 in nine dif- 
ferent colors, and two lines showing the prompts for the com- 
mands that are available. 

A flashing cursor can be seen on the graphics 10 screen. 
The joystick is used to move the cursor; holding the red trig- 
ger button down allows you to draw with the cursor as it 
moves. Color is the background color and is used for 
erasing. 

You can switch to any of the available palette colors by 
typing the number corresponding to the desired color (or by 
typing for the background). Hitting the CLEAR key clears 
the screen, and the S and L keys enable you to save or load 
your drawings to and from disk. 

In saving and loading programs, the filename must be en- 
tered in the form D1:FILENAME. While you can draw with 
only eight colors at a time, hitting the N key gives you access 
to all 128 Atari colors. You can choose any nine for your pal- 
ette. Changing colors is accomplished by moving the joystick 
left or right until you have the right color in the right place; 
then hit the RETURN key to enter your choice. 
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Short and Powerful 

Even though Art Class is a short program, it displays some of 
Atari's best features. For example, a text window with graphics 
mode 10. The text window will help children learn to read 
and follow instructions. But where does that text window 
come from? 

The program begins by taking a regular GRAPHICS 8 
screen (with its four-line text window) and modifying it as fol- 
lows. The display list, those instructions that set up the screen 
display, is modified in lines 270 and 280 for only two 
GRAPHICS lines in the text window. Also, two blank lines 
are inserted in the graphics window near the bottom, the sec- 
ond of which includes an instruction for a display list interrupt 
(DLI). It's that DLI instruction that is the key to having text 
and GTIA graphics on the same display. 

When GTIA modes are initiated, an internal register called 
PRIOR (53275) is set for the special modes. That register has 
to be set differently for modes 0-8. Every screen cycle (that is, 
every 1/60 second) PRIOR's shadow register at location 623 
updates the register for GTIA 10 by setting it to a value of 
128. The DLI switches PRIOR's setting to as the electron 
beam scans across the screen just above the text window. 
Thus, PRIOR is constantly being set and reset according to the 
position of the electron beam on the screen. 

This setting and resetting must be done in machine code 
for speed and accurate timing, but that's no problem. The ma- 
chine language routine is POKEd into position in page 6 and 
activated through BASIC. The DLI pointer at locations 512 
and 513 has to be set; finally, the DLI is turned on by 
POKEing 54286 with 192. 

The DATA for the DLI service routine can be found in 
lines 210 and 220. In addition to resetting PRIOR, the DLI 
also sets the various colors at the bottom of the screen. In 
assembly code, this is the DLI service routine: 

PHA ;Save values from 

TXA ;S, Y, and A registers 

PHA ; 

TYA 

PHA 

LDA #0 ;This value will be stored in PRIOR 

LDX #148 ;Color blue for the text window 
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LDY 


#12 


STA 


$D40A 


STA 


$D01B 


STX 


$D018 


STY 


$D017 


LDA 


$2C0 


STA 


$D01A 


PLA 




TAY 




PLA 




TAX 




PLA 




RTI 





White text characters 

Wait for WSYNC horizontal blank to begin 
Reset PRIOR register to 
Background text window color register 
Text luminance color register 
Load the current border color 
Store in border color register 
Restore X, Y, 
and A values 



;Return from interrupt 

Now that the screen can display both GT1A graphics and 
normal text in a text window, a creative and useful display can 
be made. The colored numbers at the bottom of the screen are 
normal and inverse numerals plotted in GTIA 10 colors. They 
are drawn by lines 300-400. 

One last feature worth mentioning is the screen clear 
technique. A string S$ originally dimensioned to 1 is 
redimensioned to 6560, the size (in bytes) of the graphics win- 
dow. Lines 400-420 do the redimensioning and relocate the 
string to screen memory location. Then, when the screen 
needs clearing, zeros are written to the string almost instanta- 
neously (line 640). 

Art Class 

For error-free program entry, rend "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HP 10 



CLR :DIM S$ ( 1 ) , B* ( 1 ) ,Ct ( 1 ) , F* ( 15) , T$ (9) , 

I O* (6) , X ( 10) , Y ( 10) 

GOTO 200 

S=STICK(0)-5:N=STRIG(0) : X=X+X (S) : Y = Y + Y <S 

) : IF X<0 THEN X=79 

IF X>79 THEN X = 

IF Y<0 THEN Y=160 

IF Y>160 THEN Y=0 

LOCATE X,Y,Z:COLOR C+12:PLOT X.Y:DRAWTO 

X,Y+3:C0L0R C+8:PLDT X,Y:DRAWTO X,Y+3:CO 

LOR C+4:PL0T X,Y:DRAWTO X„Y + 3 
HG 80 COLOR C:PLOT X.Y:DRAWTO X,Y + 3 
PI 90 IF NOT N THEN 110 

AS 100 COLOR Z:PLOT X,Y:DRAWTO X,Y + 3 
KD110 IF PEEK (764) =255 THEN 30 
DP 120 GET #2, K 



CN 


20 


ID 


30 


ON 4 


BF 


50 


Bl 


60 


JK 


70 
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FL 130 



Oft 
HO 
OF 
JP 
DF 
HE 



140 
150 
160 
170 
180 
190 



IF 



IF 

IF 

IF 

IF 



K>47 AND K<58 THEN C=K-4B : Z = C : GOTO 3 



EC 200 
HD 2 10 

GE 220 

FE 2 30 

J I 240 
EO 250 



PJ 



!60 
!70 



FE 280 



OJ 290 



(IK 

CM 



;00 
;i0 



FG 320 

HB 330 
LJ 340 
LP 350 
SD 360 
FN 370 
FL 380 
PQ 390 
FP 400 



K = 83 
K = 76 
K = 78 
K = 60 
10 



THEN 460 
THEN 500 
THEN 540 
OR K=125 



New 



THEN 640 
GOTO 

? C*; " S> Save Picture<3 SPACES3 N 
Color5{8 BPACES>L> Load Picture 
C3 SPACES:! CLEAR; Clear Scr een " ; : GOTO 3 
C* = CHR* ( 125) : B* = CHR* (253) : FOR 1=0 TO 3 
:READ D:POKE 1 536+ I , D : NE X T I 



?: 



169, 
208. 



0,16 
142. 



! , 14 8, 16 
?4, 208, 1 



104, 168, 104, 170, 104, 6 

TO 6:READ N : I 0* ( I , I ) =CHR* ( N ) : NE 

228 
!s POKE 



I : PO 
0: PO 



DATA 72,138,72,152 

,12,141,10,212,141 

0. 23, 208, 173, 192 

DATA 2, 141 , 26, 208, 

4 

FOR 1=1 

XT I 

DATA 104,162,16,76,86 

GRAPHICS 8:P0KE 704,12:POKE 705,70:POK 
706,152:POKE 707,218:POKE 708,46:POKE 

709,118:POKE 710,4:POKE 711,78 

POKE 7 12, 38: D=PEEK ( 560 ) +256 * PEEK ( 56 1 ) 

FOR 1=167 TO 170:POKE D+ I + 1 4 , PEEK ( D+ I ) 

NEXT I:FOR 1=173 TO 175:P0KE D+I+12,PE 

K (D+I ) : NEXT I 

FOR 1=165 TO 180:POKE D+I,15:NEXT 

E D+ 17 1,0: POKE D+ 1 80 , 1 28 : POKE 512 

E 513,6:P0KE 54286,192 

POKE 623, 128 -.POKE 87 , 1 : N = PEEK ( 1 6 ) 

IF N>=0 THEN POKE 16, N: POKE 53774 

X=0:Y=164:T*=" 012 345678" 

FOR N=l TO 9: S=ASC (T* (N, N> ) -32: L=57344 

S*8:FOR 1=0 TO 7 : K=255 : COLOR C: IF C=0 

HEN COLOR 6:K=0 

D=ABS (PEEK (L+I ) -K) : IF D > 1 

B:PLOT X,Y+I 

IF D>63 THEN D=D-64:PL0T 
D>31 THEN D=D-32:PLOT 
D>15 THEN D=D-16:PL0T 
D>7 THEN D=D-8:PL0T X 
D>3 THEN D=D-4:PLOT X+5,Y+I 
D>1 THEN D=D-2:PLOT X+6.Y+I 
D>0 THEN PLOT X+7,Y+I 

NEXT I : X = X+9: C = C+1 : NEXT N : N = PEEK ( 1 40 ) ■* 

56* PEEK ( 141 ) : D=PEEK ( 134) +256* PEEK (135) 



128: 



IF 
IF 
IF 
IF 
IF 
IF 



N 



17 THEN D = D-1! 

X+l , Y+I 
X+2. Y+I 
X+3, Y+I 
-4, Y+I 
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6H410 I=PEEK (88) +256*PEEK < 

Y=I-X*256: POKE D + 2,Y 

4, 160: POKE D + 5, 25 
CD 420 POKE D + 6, 160: POKE D + 

READ X,Y:X(I)=X:Y(I) 
BB 4 30 DATA 1,4,1,-4,1,0,0, 
AQ 440 DATA -4,-1,0,0,0,0,4 
NA 450 OPEN #2, 4, 0, " K: " : X=3 

, 1 : POKE 32,1: GOTO 19 
DJ 460 POKE 752,0:? Ct; "Ent 

his picture. ": INPUT 

=" " THEN GOTO 190 
NA470 TRAP 650:CLOSE # 1 : OP 

52, PEEK (88) : POKE 853 

160:POKE S57,25:P0KE 
AH 480 L = USR ( ADR < 10*) ) : FOR 

, PEEK < I ) : NEXT I 
HK 482 CLOSE #l:OPEN #1,4,0 
HC 490 POKE 54286,192:7 C* ; 

";F$:FOR D=l TO 400: 
KP 500 POKE 752,0:? C$; "Ent 

1 ename. ": INPUT F*:PO 

HEN GOTO 190 
HQ510 TRAP 650:CLOGE # 1 : OP 
FL 520 POKE 852, PEEK (88) : PO 

E 856,160:POKE 857,2 

ADR ( ID*) ) 
OE 530 FOR 1=704 TO 712:GET 
I: POKE 54286, 192:GO 
U 540 ? C*; "Press a number 

he<!4 SPACES? joysti ck 

n -finished. ";:C=1 
JP 550 I=PEEK (704+C) 
60 560 I = I+X (STICK (0) -5) : IF 
DD 570 IF I>255 THEN 1 = 
AF 580 POKE 704 + C,I:IF PEEK 
HC 590 GOTO 560 
PH 600 GET #2, K: IF K 
HI 610 IF K<48 OR K 5 
PH 620 C = K-48 
GN 630 GOTO 550 
KC 640 S* ( 1 ) =CHR* (0) 

:GOTO 30 
GL 650 POKE 54286, 192: D = PEE 
GN 660 IF D=I65 OR D=130 OR 

ou used an improper 

<5 SPACESif i lename., 

710 



= 155 TH 
56 THEN 



89)-N:X=INT( 1/256) : 
:POKE D+3,X:POKE D+ 

7,25:FOR 1=0 TO 10: 

=Y:NEXT I 

0,-1,4,-1 

,0,-4,0,0 

9: Y=80: C=l : POKE 752 



er a -filename for t 

F$:POKE 752,1: IF F* 

EN 4»1 , 8, 0, F*: POKE 8 
, PEEK (89) : POKE 856, 

850, 1 1 
1=704 TO 712:PUT #1 

,F* 

"Picture saved as: 
NEXT D:GOTO 190 
er the picture's -f i 
KE 752, 1 : IF F*=" " T 

EN #1 , 4, 0, F* 

KE 853, PEEK (89) : POK 

5:POKE 850,7:J=USR( 

#1 , C: POKE I , C: NEXT 
TO 190 
key and then use t 
Press RETURN whe 



I<0 THEN 1=255 

(764)<>255 THEN 600 

EN 190 
560 



S*(6560)=CHR*(0) :S*(2)=S* 



K ( 195) 

D=146 THEN ? C* ; " Y 
or incomplete 

Try agai n . " ; : GOTO 
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BH 670 IF D=138 OR D=139 THEN ? Ct;"Check all 
connections and try again. "; :GOTO 710 

PL 680 IF D=144 OR D=162 OR D=167 THEN ? C*;"D 
iskette is -full or write protected 
<4 SPACESJor file is locked. "j :GDTO 710 

EB 690 IF D=170 THEN ? C*;"That picture is not 
on file.";:GOTO 710 

IA 700 ? Ct; "Error " ; D ; 

BC710 ? B*:FOR D=l TO 500:NEXT D:GOTO 190 
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Hyperword 

Daniel M. Daly 



Fugitive hyperwords have escaped from their dimension 
and are materializing in ours. Your job is to type their 
names into the targeting computer and send them back 
where they belong. 

"Hyperword" is a program that brings new excitement to the 
old job of learning how to type. Each round pits you against 
five waves of invaders. After the title screen and the warning 
to GET READY, the first wave of hyperwords appears. 

But what are hyperwords? They are groups of random let- 
ters (you can specify the size of the group with the SELECT 
key) that appear two at a time on your screen. Then, when the 
FIRE! command appears, you must type in the letters, in order, 
before the hyperword escapes to other dimensions. 

A single game consists of five rounds, and you can specify 
how long each round lasts by using the OPTION key (to se- 
lect Skill Level) and the SELECT key (to pick a level from 1 to 
9). You'd better practice on the lower levels first, though. 
Those high-level hyperwords come at you pretty quickly. 

If you type in the hyperword correctly, it will turn dif- 
ferent colors and then fade out of view. The points earned for 
that word will be displayed in the text window and added to 
the tally. If there is not a match, a low tone is heard and the 
timers continue counting down. 

A wave can end in one of two ways. If both words are 
typed in correctly, the next wave starts. However, if you do 
not type them correctly before time runs out, the words still 
remaining will fade out, and then the next wave will begin. 
No points are earned for words that fade out by themselves. 

At the end of the fifth wave, a short fanfare sounds, and 
you'll learn whether or not you've beaten the previous high 
score. If so, the high score is changed. The next screen tells 
the player now many words were hit and/or missed, again in- 
dicating the score for the last game. 

After a short pause, the program returns to the main 
menu, waits for input via the console keys, and displays the 
high score for each size/level combination as each combina- 
tion is chosen. 
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Fading Words 

The fade-in and fade-out subroutines at the beginning of the 
program add a great deal of visual excitement to the game. 
They look impressive, but they are fairly straightforward. In 
fact, they're simple FOR-NEXT loops with a STEP of less than 
one. The resulting values set the brightness parameter of the 
SETCOLOR statement, and the result is a gradual fading in or 
out of the letters of the word. 

Hyperword 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

FL 10 GOTO 1000 

HA 100 IF ASC (T0* < 1 ) ) >128 THEN WCR=3 : WC=4 : WL=6 

: GOTO 1 10 
IE 105 WCR = 0: WC = 2: WL = S 
8L 110 SETCOLOR WCR,WC„0 
UN 115 POSITION XPOS,YPOS 
FM 120 PRINT #6; T0* 

OP 125 FOR LUP = TO WL STEP 0.2 
MO 130 SETCOLOR WCR,WC,LUP 

MK135 SOUND 2 , 50 , 1 2 , LUP : SOUND 3,85, 12, LUP 
HF 140 NEXT LUP 

IN 145 SOUND 2,0, 0,0s SOUND 3 , , , : RETURN 
HH1&0 IF ASC <T0* ( 1 ) > > -1 28 THEN WCR = 3 : WC = 4 : WL = 6 

: GOTO 170 
IK 165 WCR=0: WC=2: WL=8 
IE 170 SETCOLOR WCR,WC,WL 
A0 175 FOR LDN = WL TO STEP -0.2 
MA 180 SETCOLOR WCR,WC,LDN 

KE 185 SOUND 2 , 50 , 1 2 , L DN : SOUND 3,60, 12, LDN 
LH 190 NEXT LDN 
KM 193 SETCOLOR WCR,0,0 

JC 195 SOUND 2, 0, 0, 0: SOUND 3 , , , : RETURN 
OB 200 SETCOLOR 1,0,0 
BL 205 POSITION RGX,RGY 
HB210 PRINT #6;RG* 
JI 220 FOR LUP = TO 12 STEP . 1 5 : SETCOLOR 1,0, 

LUP:NEXT LUP 
IN 230 FOR LDN=12 TO STEP -0 . 1 5 : SE T COLOR 1,0 

,LDN:NEXT LDN 
EB 240 POSITION RGX,RGY:FOR W= 1 TO LEN(RG$) :F'R 

INT #6;" ";:NEXT WrSETCOLOR 1,12,10:RET 

URN 
HH 250 RG4="get " : RGX = 5: RGY = 3: GOSUB 200:RG*="re 

ady":RGX=8:RGY=6:G0SUB 200: RETURN 
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LJ 1000 



DO 1005 
IK 10 10 



PN 10 12 

NK 1013 
HA 1015 



ID 
III 
FK 
PK 
CD 
PN 
All 
PK 
HG 
JO 



090 
100 
120 
220 
225 
230 
235 
240 
245 
247 



oc i: 



LB 1 



LH 1: 



BO 1260 
GF 1305 



IB 
HP 
JE 



1307 



10 
30 



Eft 1335 

NC 1340 

PL 1350 

HC 1355 

ML 1 360 

BH 1 370 

BI 1 37 1 



CG 13 7 2 

KD 1373 

AP 1375 

AG 1380 

AH 1385 

NH 1387 



DIM 

) , LD 

DIM 

H$=" 

STUV 

BSE" 

KBD = 
RYD = 
CONS 
CDTM 
TMV2 
GRAP 
POSI 
PRIN 
POSI 
PRIN 
POSI 
PRIN 
POSI 
PRIN 
FOR 
J ) =0 
T J 
FOR 
UND 
FOR 
ND 1 
FOR 
ND 2 
FOR 
CPT = 
OPN = 
SRAP 
POSI 
POSI 
BEB 
POSI 
PRIN 
POSI 
POSI 
PRIN 
IF B 
, 2: P 
T , SL 
POKE 
FOR 
IF P 
IF P 
IF P 
GOTO 



H* (9 > , L 1* (2 
* (26) , OPN* ( 
T0* (9) , Tl * < 
BRnXSSSEiag." ■ 



WXYZ 

764 : 

1561 

0L = 5 

V1L = 

H=54 

HICS 

TION 

T #6 

TION 

T #6 

TION 

T #6 

TION 

T #6 

1 = 1 

:SOU 

NEXT 

1=1 

0, A, 

1=15 

, A, 1 

1 = 15 

, A, 1 

1=0 

1 : SL 

0: SL 

HICS 

TION 

TION 

IN" 

TION 

T #6 

TION 

TION 

T #6 

ESTS 

RINT 

) 

CON 
PAUS 
EEK ( 
EEK ( 
EEK ( 
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6> , L2* (26) , L (26) , RG$! 20 

11), BESTSCORE (9,9) 

9 ) , T2$ ( 9 ) , K 1 $ < 9 ) , K2* ( 9 ) 

Ll*="ABCDEFGHIJKLMNOPQR 



abcdefghi iklnno 



FF = 2! 

3279 
540: CDT 
3: TXTRO 

17 

0, 5 
; H*; " . . 

0, 13 
; "HOW W 

0,15 
; " I'M' T 

0,2 

; "BBH 

TO 9: FO 
ND 3,1* 

I 
TO 26:R 
10, 8: PO 
36 TO 1 
0, 8: POK 
6 1 TO 1 
0,8: POK 
TO 3: SO 
= 1 
CN=CPT: 

18 

5, 0: PR 

, 1 : P 



FLAG=206:CHECK=1536: DST 



MV1H=54 1:CDTMV2L=542:CD 
W=656:TXTC0L=657 



ELL CAN' 
YPE???" 



R J=l TO 9: BESTSCORE ( I , 
J,10,8:POKE 711,I*J:NEX 

EAD A: LD* < I ) =CHR* ( A) : SO 

KE 7 1 1 , A: NEXT I 

560: READ A: POKE I, A: SOU 

E 711, A: NEXT I 

637 -.READ A: POKE I, A: SOLI 

E 711, A: NEXT I 

UND I , , , 0: NEXT I 

OPN$="TARGET SIZE" 

INT #6;H* 

RINT #6; "PRESS 3X350 TO 



4 , 5 
; OPN* 
2,2:PRINT #6; "{17 SPACES} 

; SLCN 
CORE (CP 
#6; "BE 



T,SL)>0 THEN POSITION 2 
ST SCORE= "; BESTSCORE (CP 



SOL, 
E= 1 TO 
CONSOL) 
CONSOL) 
CONSOL) 



35: NEXT PAUSE 

=3 THEN 1390 

=5 THEN 1410 

=6 THEN 1500 
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m 


1390 


IF DP 
: SLCN 


SE 


1400 


OPN=l 
1340 


PB 


1410 


IF OP 


CO 


1420 


CPT = C 


KJ 


1430 


IF SL 


DK 


1440 


IF CP 


DA 


1450 


IF OP 


GA 


1460 


SLCN = 


NJ 


1500 


SCR = 


FB 


1510 


Tl*=" 


EA 


1630 


GRAPH 


JO 


1640 


WAVES 


DD 


1650 


FOR M 

1J(MT 


191 


1655 


T1X = I 
ND <0) 


DG 


1660 


FOR M 
2* (MT 


m 


1663 


T2X = I 

ND (0) 


pp 


1664 


IF AS 


OD 


1665 


IF T2 
63 


GO 


1667 


POKE 
VE ": 


JH 


1670 


IF WA 


CF 


1675 


HIT = 


06 


16S0 


T0t = T 


OC 


1700 


T0$ = T 


KC 


1705 


SLTM = 
256) : 


IP 


1710 


POKE 


CE 


1720 


KSN=1 


P6 


1723 


POKE 


FP 


1725 


FOR P 
OMPT 


CK 


1727 


POKE 


AL 


1730 


PRINT 


PJ 


1735 


POKE 


HP 


1740 


POKE 
POKE 


IJ 


1745 


POKE 


OD 


1747 


IF PE 
THEN 


GO 


1750 


IF PE 


JN 


1760 


K = PEE 


PM 


1770 


POKE 


BP 


1780 


DUMMY 



N=l THEN OPN=0: OPN*="TARGET SIZE" 

=CPT:GOTO 1340 

: OPN*="SKILL LEVEL" : SLCN=SL: GOTO 

N=l THEN SL=SL+l:GOTO 1430 

PT + 1 

>9 THEN SL=1 

T>9 THEN CPT=1 

N=l THEN SLCN=SL:GOTO 1355 

CPT:GOTO 1355 

: REM WBSMBEBSMBEEiaSSWBaSSMi 

" : T2*=" " 

ICS 2:SETC0L0R 2,0,0:POKE 752,1 

= 1 : HITS = 

T=l TO CPT: PRL=INT (RND (0) *26) +1 : T 

, MT) =L1* (PRL, PRL) : NEXT MT 

NT (RND (0) * (20- (CPT-1 ) ) ) : Tl Y=INT <R 

* 10) 

T=l TO CPT: PRL=INT (RND <0) *26) +1 : T 

, MT) =L2* (PRL, PRL) : NEXT MT 

NT(RND<0)*(20-(CPT-1))):T2Y=INT(R 

*10) 

C (T1*)=ASC (T2$ ) -160 THEN 1650 
Y=T1Y AND T2X<T1 X+ (CPT+1 ) THEN 16 

TXTCOL, 16:POKE T XTROW , 3 : PR I NT "WA 

WAVES; 

VES=1 THEN GOSUB 250 

1*: XP0S = T1 X: YP0S = T1 Y: GOSUB 100 
2*: XP0S=T2X: YP0S=T2Y: GOSUB 100 
60* (2* ( 10-SL) ) +75: SLTMH=INT (SLTM/ 
SLTML=SLTM-256*SLTMH 
694,0:POKE 702,64 

TXTROW, 1 : POKE TXTCOL, 2 

ROMPT=l TO CPT:PRINT "„";:NEXT PR 

TXTROW, 0: POKE TXTCOL, 12 

" WEBHSBM " •■ POKE 755,2 
TXTROW, 1 : POKE TXTCOL, 2 
CDTMV2L,SLTML:POKE CDTMV2H,SLTMH: 
CDTMV1L, 56: POKE CDTMV1H.4 
KBD, FF 

EK(CDTMV2L)+256*PEEK(CDTMV2H)<75 
1995 

EK(KBD)=FF THEN 1747 
K (KBD) 
7 5 5, 1 
=USR(CHECK,K,ADR(LD*)-1) 
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CK 1781 INDXY = PEEK (FLAG) 

FK 1795 IF INDXY=0 THEN 1840 

SN 1777 POKE 53279,0 

KF 1800 K1$(KSN)=L1*(INDXY, INDXY) : K2$ (KSN) =L2t 

( INDXY, INDXY) 
IH 1810 PRINT Kit (KSN, KSN) ; 
GL 1820 IF KSN = CPT THEN 1845 
DN 1830 KSN = KSN+1 
^ 1840 POKE 755,2:GOTO 1745 

184 5 SVETIMEL=PEEK (CDTMV2L) : SVET I MEH = PEEK (C 

DTMV2H) : SVESCOREL=PEEK (CDTMV1L) : SVESCD 

REH=PEEK (CDTMV1H) 
1847 WRDSCR=SVESCOREL+256*SVESCOREH 
00 1850 IF K1* = T1* THEN GOSUB 20000 : DUMMY = USR < 

DSTRYD, 0> : GOSUB 20100:GOSUB 20200:SCR= 

SCR+WRDSCR: GOTO 1880 
PF 1860 IF K2* = T2* THEN GOSUB 20000 : DUMMY = USR < 

DSTRYD, 3) : GOSUB 20100:GOSUB 20210:SCR= 

SCR+WRDSCR: GOTO 1880 
HI 1870 SOUND 0, 200, 12, 10: FOR PAUSE=1 TO 25:NE 

XT PAUSE:SOUND 0,0,0,0 
FF 1880 POKE TXTROW, 2: POKE T X TCOL , 20 : PR I NT " 

C14 SPACES}": IF HIT=3 THEN 1980 
FN 1885 KSN=l:POKE TXTROW, 1 : POKE TXTCOL,2:FOR 

PROMPT=l TO CPT:PRINT ".":: NEX T PROMPT 
PL 1890 POKE TXTROW, 1 : POKE TXTCOL,2 
EA 1900 POKE CDTMV2H, SVETIMEH: POKE CDTMV1H,SVE 

SCOREH:POKE CDTMV2L , SVET I MEL : POKE CDTM 

V1L, SVESCOREL: GOTO 1840 
GN 1980 ? " {CLEAR3 " : WAVES=WAVES+ 1 : IF WAVES<6 T 

HEN 1650 
NA 1990 GOTO 2020 
FA 1995 IF HIT = OR HIT = 2 THEN T0t = Tlt: GOSUB 1 

60:POSITION TlX,TlY:FOR 1=1 TO CPT:PRI 

NT #6; " " ; : NEXT I 
DH 2000 IF HIT = OR HIT=1 THEN T0t = T2t : GOSUB 1 

60:POSITION T2X,T2Y:F0R 1=1 TO CPT:PRI 

NT #6; " " ; : NEXT I 
NC 2005 GOTO 1980 

HN 2020 GRAPHICS 17:RESTDRE 10100 
HD 2030 FOR 1 = 1 TO 17:READ A,B 
CD 2040 SOUND 0,A,10,8:FOR PAUSE=1 TO 12*B:NEX 

T PAUSE:SOUND 0,0,0,0:NEXT I : SOUND 0,0 

,0,0 
JP 2045 FOR PAUSE=1 TO 25:NEXT PAUSE 
KF 2050 SOUND 0, 121 , 10, 8: SOUND 1 , 96 , 1 , 8 : SOUND 

2, 81 , 10, 8: SOUND 3,60,10,8 
JL 2060 FOR PAUSE=1 TO 15: NEXT PAUSE 
BO 2070 FOR 1=0 TO 3:S0UND I,0,0,0:NEXT I 
CG 2090 PRINT #6; "NICE GOING'!!" 
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KK 2 1 00 

FO 2 1 1 
FB 2120 



HD 2 130 
BI 2 140 

NC 2 1 4 5 
EF 2 150 

KH 2 160 

ON 2170 
CA 2 180 
NC 21 90 
HN 2200 
LJ 2210 
JB 2220 



PRINT *6:PRINT #6; "YOU MADE IT THROUGH 
":PRINT #6:PRINT #6; "SKILL LEVEL " ; SL 
IF BESTSCORE (CPT, SL) >=SCR THEN 2190 
PRINT #6:PRINT #6; "AND HAVE BEATEN THE 
":PRINT #6:PRINT #6: "BEST SCORE FOR TH 
IS":PRINT #6:PRINT #6; "SKILL LEVEL!!" 



JD 



!30 



SCR 
BESTS 



14: P 



8: SOUND 



NEXT PAUSE 

' ; HITS; " WORDS, " 
'AND MISSED ,, ;10-HIT 



MB 2240 
(IN 2250 
OP 7990 



m 10000 

M 10010 
NC 10020 

PO 10030 

JC 10040 

DH 10050 

LH 10060 

DI 10100 



EH 20000 
BE 20010 
NE 20020 
HC 20100 



YOUR SCORE 
' POINTS ! " 
NEXT PAUSE 



IS" :PRIN 



PRINT #6:PRINT #6; "YOUR SCORE: 
PRINT #6:PRINT #6; "BEST SCORE: 
CORE (CPT, SL) 

FOR PAUSE=1 TO 450: NEXT PAUSE 
BESTSCORE (CPT, SL)=SCR: POSITION 
RINT #6; BESTSCORE (CPT, SL) 
SOUND 0, 1 21 , 10, B: SOUND 1,96,10. 

2, 81 , 10, 8: SOUND 3,60,10,8 
FOR PAUSE=1 TO 15:NEXT PAUSE 
FOR 1=0 TO 3: SOUND I,0.0,0:NEXT 
FOR PAUSE=1 TO 450 
GRAPHICS 17 
PRINT *6; "YOU HIT 
PRINT #6:PRINT #6; 
S " " " 

PRINT #6:PRINT #6; 
T #6:PRINT #6;SCR; 
FOR PAUSE=1 TO 750 
GOTO 1307 

DATA 63, 21, 18, 58, 42, 56, 61, 57, 13, 1,5,0, 
37, 35, 8, 10, 47, 40, 62, 45, 11, 16, 46, 22, 43, 
23 

DATA 104, 104, 104, 133, 203, 104, 133,205, 

104, 133, 204, 160, 26, 165, 203, 209 

DATA 204, 240, 3, 136, 208, 24 7, 132, 206, 96 

DATA 104, 104, 104, 133, 203, 169, 128, 133. 

204, 169, 170, 141, 1,210, 169,255 

DATA 141,0,210, 166,204, 160, 1 , 136,208, 

253, 202,208, 248,72, 138,72 

DATA 166,203, 173, 10, 210, 157, 196, 2, 104 

, 170, 104, 56, 233, 1,240,3 

DATA 76,41 ,6,72, 165,204,56,233, 16,201 

, 32, 240, 6, 133, 204, 104 

DATA 76, 39, 6, 104, 169,0. 141, 1,210, 141, 

0,210,96 

DATA 81,1, 60, 5, 81, 1,81, 1,81,1, 96, 1,81 

,1,81,1, 96, 1,81,1, 60, 6, 60, 1,81, 2, 81,1 

,96, 2,96, 1 , 121 ,2 

POKE TXTROW, 2: POKE TXTCOL.20 

PRINT WRDSCR; " POINTS!!!" 

RETURN 

POKE TXTROW, 2:POKE TXTCOL , 20 : PRI NT " 

C14 SPACES*": RETURN 
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BB 20200 T0* = T1*:GOSUB 160:POSITION T1X,T1Y:F0 

R 1=1 TO CPT:PRINT #6;" ";:NEXT I:HIT 

S=HITS+1 :HIT=HIT+1: RETURN 
GG20210 T0« = T2*:BOSUB 160:POSITION T2X,T2Y:FO 

R 1=1 TO CPT:PRINT #6;" ";:NEXT I:HIT 

S=HITS+1 : HIT=HIT+2:RETURN 
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Chapter 3 

Stock Market 

Sul Kattan 



The Atari is an excellent computer for action game 
programming. However, you should not forget that the 
same features that make it a great games computer also 
make it ideal for a variety of real-life simulations. 

"Stock Market" is a good example of the sophisticated simula- 
tions that can be done on your Atari. It can be used as an 
educational tool or as a game, and it is sure to be enjoyed for 
many hours. The program uses approximately 8K, so it can be 
played on any Atari computer. 

After you run the program, it will pause for a few seconds 
before prompting you for the number of players (1-5). From 
that point, the game is self-explanatory. After the stock codes 
have been displayed and you have learned the function keys, 
the screen will go blank for another few seconds. Then the top 
line will transform into a stock ticker, displaying the three- 
letter stock codes and their respective costs per share. That's 
when the fun begins. 

Thanks to machine language and the vertical blank inter- 
rupt (VBI), the ticker remains active throughout each play ses- 
sion, even during transactions. All fluctuations will be 
displayed on the ticker, so keep a close eye on it. 

When you press the BUY or SELL key, all prices will be 
frozen. This makes the game fair to all players. However, the 
CREDIT CHECK key will not freeze prices. 

It is helpful to keep a record of what price you paid for 
certain stocks. The game will keep a record of which stocks 
you own, and it will list your holdings whenever you buy or 
sell shares. Also, remember your identification number (1-5), 
but the game will remember your name. 

The names of the companies used in the simulator are 
completely fictitious. Should such a company name exist, it is 
purely coincidental. 

Stock Market 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

NB 1 1 SUMMARY=13000 

m 12 SOSUB 14000 

DO 13 POKE 16, 64: REM DISABLE 'BREAK' KEY 
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DE 25 GOTO 130 

FG 30 RESTORE 100+EC:READ D* , A , B , DDt : RETURN 

E6 60 ? :? NAME* (HM*20, HM*20 + NL (HM) ) ; " OWNS: 



0:IF SH(HM,EC)=0 THEN NEXT 



II 65 FOR EC=1 TO 

EC:GOTO 70 
FD 66 ? CHR* (32 + 3* (AV (EC) =0) ) ; 
CL 67 ? SH (HM, EC) ; " shares of "; 

; " ( " ; DD$; " ) " : NEXT EC 
SC 70 ? "PRESENT CREDIT $";W(HM) 
EI S0 RETURN 

REM ** STOCK TITLES 



: GOSUB 



;0: 



D* 



cc 

IK 

HO 
FA 
BN 
Bl 
BL 
HF 
GO 
AG 
LC 
EG 
OK 
HH 
AG 
GL 
FD 
LB 
CP 
BA 
iff 
PE 
IN 



100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 10 

111 

1 12 

13 

14 

15 

16 

17 

18 

19 

20 

3 



13! 



HI 140 

JD 200 
B8 205 
DF 210 

KH 250 



CC 260 

AC 265 
GP 270 

m 280 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 



ASTERISK ELEC 
AV&V, 55, 3, AW 
BORVAC AIR, 45 
BOWLAND CORP. 
COMLINK COMP. 
CROY GENETICS 
DELTON CHEM. , 
FAIRVIEW MTR. 
GEM MILLS.,23, 
GIBSON AERO. , 
I . M. I . , 54, 22, 
KATTAN PROD. , 3 
LDCKE CORP. , 17 
METER ONE OIL, 35 



. ,22, 10, AST 

, 5, BOV 
, 25, 5, BWL 
, 30, 8, COM 
, 15, 14, CRG 
40, 6, DLT 
,46, 10, FRV 
6, GEM 
40,5, GIB 
IMI 

39, 9, KTN 
3, LOC 
7, MTO 
, 5, RNA 



RINGER AMERICA, 25, 
SAFE STEEL, 12, 2, SFS 
SONER CORP. , 43, 7, SNR 
TEXTAR CORp! , 36, 12, TEX 
UNION TC,45,20,UTC 
WEDWAY COMM. , 30, 5, WED 
** INITIALIZATION 



FOR I=TADR TO T ADR+ 1 99 : POKE I,0:NEXT I: 

RESTORE 101 

DIM STOCK (20) , D* (30) , AV (20) , DD* (3) , V* ( 1 

0) , CO (20) , CODE* (3) 

FOR ST=1 TO 20 

READ D* , A, B, DD*: CO (ST) =B 

STOCK (ST)=A+INT( (RNDI0) *B> *100) / 100: AV ( 

ST)=INT(RND(0) *5 00) +30 00: NEXT ST 

TRAP 250:7 CHR* ( 1 25 ) ; " HO W MANY PLAYERS 

(1-5) ";: INPUT PL:TRAP 40000 : PL= I NT ( PL ) 

:IF PL<1 OR PL>3 THEN 250 

DIM NAME*(PL*20+20) ,W(PL) ,SH(PL,20) ,NL( 

PL) 

? "EACH PLAYER STARTS WITH $3000" 

? :FOR M=l TO PL:? "NAME OF PLAYER # " ; M 

;" ";:INPUT D* : NL ( M ) =LEN ( D* ) - 1 

NAME*(20*M,20*M+NL(M) )=D*:NEXT M 
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EN 


285 ( 


BL 


600 1 


JP 640 1 


HF 650 1 


JC 


1000 


PB 


1010 


FP 


1015 


PI 


1020 


AC 


1030 


DB 


1040 


KH 


1060 


m 


2000 


CI 


2002 


JE 


2003 


AG 2005 


U 


2010 


HI 


2040 


AJ 


2041 


m 


2050 



GOSUB SUMMARY 

FDR A=l TO PL:FOR B=l TO 20 : SH < A , B ) =0 : N 

EXT B: W (A) =3000: NEXT A 

UU=USR ( 1585) 

GOTO 10000 

REM ** EXIT MAIN LOOP 

EP=PEEK (764 ) : IF EP=255 THEN RETURN 

POKE 764,255 

IF EP=21 THEN GOSUB 2000 

IF EP=62 THEN GOSUB 6000 

IF EP=18 THEN GOSUB 12000 

RETURN 

REM ** BUY STOCKS 

TRAP 5000:POKE 755,2 

? CHR*(125):7 "<:8 SPACES} en t er 'RETURN 

' to exit" 

? :? "WHICH PLAYER WILL BUY STOCKS (1- 

"; PL; ")";: INPUT HM:TRAP 40000 

GOSUB 60 

? :? "Enter code of desired stock ";:I 

NPUT CODE* 

IF CODE*=" " THEN 2002 

FOR CV=1 TO 20:RESTORE 100+CV:READ D* , 

A,B,DDS:IF DD*=CODE* THEN 2070 
BJ 2055 NEXT CV:? "CAN'T LOCATE "-.CODE*: GOTO 2 

040 
CO 2070 ? CHR*(125):7 CV;") ";D*:7 :? AV(CV) ; " 
SHARES AVAILABLE AT":? "t" ; STOCK (CV) ; 

" PER SHARE. " 
DA 2080 ? :? "YOU HAVE * " ; W ( HM ) ; " . " 
HB 2082 PO=INT (W (HM) /STOCK < CV ) ): IF PO>AV(CV) T 

HEN PO=AV(CV) 
PL 2085 7 "You may buy up to ";PO;" shares. " 
IJ 2090 TRAP 2002:7 :? "HOW MANY SHARES ";:INP 

UT WANT: TRAP 40000 
EM 2095 IF WANT>AV(CV) THEN 7 "*** ONLY ";AV(C 

V);" SHARES AVAILABLE" 

COST=STOCK(CV) *WANT 

IF W<HM)-COST<0 THEN 7 "*** THAT WOULD 
COST *"; COST: GOTO 2080 

7 WANT;" shares o-f " ; D* 

W(HM)=W(HM)-COST:SH(HM,CV)=SH(HM,CV)+W 

ANT 

AV<CV)=AV<CV) -WANT 

7 :? "Cost o-f transaction *";COST 

7 "Player ";HM;"'s present credit *";W 
(HM) 

POKE 755,0:7 "HIT ANY KEY TO CONTINUE" 

IF PEEK(764)=255 THEN 2170 

POKE 764, 255: GOTO 2002 
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AL 


2 


100 


FM 


2 


110 


LL 


2 


120 


EL 


2 


130 


HB 


^> 


135 


GP 


2 


140 


U 


2 


150 


Hfi 


2 


160 


EC 


2 


170 


JK 


2 
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5000 
6000 
6010 



CO 6020 



KP 


6030 


W 


6040 


KI 


6050 


NS 6060 


BP 


6070 


GP 


6080 


11 


6090 


BO 6095 


CD 6 100 



u: 6 1 1 



DC 6 120 



? CHR$ ( 125) : POKE 755,0:RETURN 
REM ** SELL STOCKS 



? CHRt ( 125) : POKE 755. 



C9 SPACESJer 



ter 



to exit 



1 :? "WHO WILL SELL STOCK 
: INPUT HM:TRAP 40000 



: INPUT CODE* : 



D* 



INPU 

OWN 
6100 



OP 


6125 


ill 


6130 


GA 


6140 


IG 


6150 


EI 


6 160 


JP 


61 70 


HB 


8000 


IH 


10000 


Ml 


10010 


CD 


10015 


DD 


10019 


AO 


10020 


HH 


10 3 



ki 1 100: 



CK 


11010 


HL 


1 1020 


JO 


1 1 030 


HH 


1 1040 


OD 


1 1050 



RETURN 7 

TRAP 8000:7 
i-" 5 PL j " ) 

GOSUB 60 

TRAP 6020 

? :? "ENTER STOCK CODE 

IF CODE*="" THEN 6020 

FOR CV=1 TO 20: RESTORE 100+CV:READ 

A,B,DD*:IF DD*=CODES THEN 6080 

NEXT CV:? "CAN'T LOCATE " ; CDDE$: GOTO 6 

050 

? CHR*(125) :? CV;") " ; D* : ? :? "YOU OWN 

" ; SH (HM, CV) ; " SHARES." 
7 :? "CURRENT PRICE PER SHARE *"; STOCK 
(CV) 

? "YOUR PRESENT CREDIT *";W(HM> 
? "HOW MANY SHARES DO YOU SELL "; 
T GIVE 

IF GIVE>SH (HM, CV) THEN ? " * * * YOU 
ONLY " ; SH <HM, CV ) ; " SHARE (S) ": GOTO 
NET=GIVE*STOCK (CV) : ? :? "NET GAIN 
ET 

SH(HM,CV)=SH(HM,CV)-GIVE 
W (HM) =W (HM) +NET : ? "PRESENT CREDIT 
(HM) 

AV(CV)=AV(CV)+GIVE 

? :? "HIT ANY KEY TO CONTINUE" 
IF PEEK (764) =255 THEN 6160 
POKE 764, 255: GOTO 6000 
POKE 755,0s? CHR* ( 125) : RETURN 

X=0:REM ** MAIN LOOP 

FOR 1=0 TO 190 STEP 1 : X = X + 1 

IF PEEK (764) <:; 255 THEN GOSUB 1000 

RESTORE 100 + X 

ADD=-CO < X > + I NT (RND ( ) *CO ( X ) *200 ) / 1 00 

STOCK ( X ) =STOCK ( X ) +ADD: STOCK ( X ) =ABS (ST 

OCK ( X ) ) 

FOR P=TADR+I TO T ADR + I + 1 : POKE P,0:NE 

XT P: P=TADR 

READ D$,A,B,DD$ 

FOR L=l TO 3: POKE P+I+L, ASC (DDt (L, L) ) 

-32:NEXT L 

V*=STR* ( INT (STOCK (X) *10) / 10) 

LN=LEN < V* ) : FOR L=l TO LN:POKE P+I+L+4 

, ASC ( V* (L , L) ) -32: NEXT L 

NEXT I : GOTO 10000 



$ 



*' 



N 



W 
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EE 12000 REM ** CREDIT CHECK 

BN 12010 ? CHR* (125) 

AK 12020 7 :? "(15 SP ACES J CRED I T CHECK" 

KO 12030 ? : 7 

SM 12040 FDR EPL=1 TO PL 

DA 12050 D* = NAME*(EPL*2 0,EPL*20 + NL(EPD) 

LI 12060 7 EPL;") ";D*;"<:3 SPACES J *"; W < EPL ): ? 

:NEXT EPL: RETURN 
Ft! 13000 REM ** SUMMARY 
EL 13010 RESTORE : POKE 752,1: POKE 82,1:7 CHR*( 

125) ; 
AC 13020 FOR 1 = 1 TO 20:READ D*,A,B,DD* 
HF 13025 IF 1 = 1 THEN ? "avail " ; AV ( I ) ; "code "; 

DD$;"5tock ";D$:NEXT I 
GO 13030 ? " C6 SPACES} " ; AV ( I ) -, " { 5 SPACES} ";DD* 

; " C6 SPACES} " ; D* 
HI 13040 NEXT I : POKE 703,4:POKE 82,2:POKE 752, 

1 
NL 13080 ? CHR* ( 1 25) ; "DURING PLAY YOU MAY:":? 

"{3 SPACES} BUY STOCKS BY PRESSING >B 

9 II 

? "C3 SPACES}SELL STOCKS BY PRESSING 

' S ' " 
? "OR. . . . tpresB any key)"; 
IF PEEK (764) =255 THEN 13 100 
POKE 764,255:^ CHR*<125)s? " CHECK Y 
OUR CREDIT BY TYPING • C ' " 
PRINT 

? "PRESS ANY KEY TO START"; 
IF PEEK < 764) =255 THEN 13130 
POKE 764,255 

POKE 703,24:7 CHR* < 1 25 ): RETURN 
REM ** MACHINE LANGUAGE LOADER 
RESTORE 15000:FOR AX=1536 TO 1596:REA 
D AXP:POKE AX,AXP:NEXT AX 

POKE 1563, PEEK < 88) : POKE 1564, PEEK <89) 
DIM TAPE* (200) : TADR=ADR (TAPE*) 
IT=INT (TADR/256) 

POKE 1560. TADR-256* IT: POKE 1561, IT 
POKE 1576, PEEK (548) : POKE 1577,PEEK(54 
9) 

RETURN 

REM -- THE FOLLOWING NUMBERS ARE MACH 
INE LANGUAGE 

REM -- CODES. TYPE CAREFULLY 1 
REM 

DATA 173,47,6,205,10,210 
DATA 176,31,174,48,6,232 
DATA 224,200,208,2,162,0 
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CO 


13090 


CI 


13095 


JI 


13100 


BN 


13110 


IE 


13120 


EJ 


13125 


JO 


13130 


JB 


13140 


MC 


13150 


BN 


14000 


LX 


14005 


FC 


14010 


BK 


14020 


AF 


14030 


NL 


14040 


HE 


14045 


Nt; 


14050 


PH 


14055 


OE 


14056 


OF 


14057 


LD 


15000 


BF 


15002 


KP 


15004 
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JE 


15006 


DATA 


HG 


15008 


DATA 


BB 


15010 


DATA 


PA 


15012 


DATA 


FG 


15014 


DATA 


IF 


15016 


DATA 


FJ 


15018 


DATA 


IB 


15020 


DATA 



142, 48, 6, 160, 0, 189 
5,52, 153, 64, 156, 232 
224, 200, 240, 8, 200, 192 
40, 208, 240, 7 6, 62, 233 
162, 0, 76, 34, 6, 200 
80, 104, 169, 0, 162, 6 
141 , 36, 2, 142, 37, 2 
96 
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Adding Excitement to 
Educational Programs 



Barry Sperling 



The Atari is an outstanding computer for use in the class- 
room, particularly when onscreen printing is made more 
exciting with modes 1 and 2. 

All students like to see their names in lights. Unfortunately, 
even when you put a large, multicolored name request in 
graphics mode 2, the name that the student types in appears 
in tiny white letters near the bottom of the screen. 

How can you get that name on the top where it belongs? 

My first thought was to alter the display list, the program 
in RAM that controls the ANTIC chip. It governs which mode 
line will appear at what level on the screen. GRAPHICS 2, for 
example, has ten lines of double-width, double-height letters 
followed by four lines of normal size letters (GRAPHICS 0). 

The fifth and sixth bytes of the list carry the address of 
the data that will be put on the screen. I decided to change 
those bytes to point to the text window. Anything typed in the 
text window would then appear on the large screen; the tech- 
nique is shown in the short program given below. 

10 GRAPHICS 2:DL=PEEK(560)+256*PEEK(561) 
20 POKE DL+4, PEEK (660) : POKE DL + 5 , PEEK < 66 1 ) 
30 ? "TYPE IN A NUMBER. ": INPUT A 

Line 10 sets the screen for large type with a text window. 
Locations 560 and 561 in RAM hold the address of the first 
byte of the display list in standard low byte/high byte format. 
Therefore, DL + 4 is the fifth byte of the list. 

Locations 660 and 661 hold the start of the text window 
(upper left byte). POKEing their values into the data address 
for the main screen allows your typing to appear on the top in 
large letters. 

Unfortunately, as you can see when you try it, your 
handiwork appears in both the screen and the window. What 
do you do? One solution would be to find some permanently 
empty memory and point the text window to that. Another 
would be to make the window invisible with SETCOLOR 
1,0,0 and SETCOLOR 2,0,0, making the characters and back- 
ground black. Unfortunately, this wipes out two of the pos- 
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sible colors that you might want to use, leaving only the 
background and two character colors. 

Can you get all the colors while staying in BASIC? You 
can, but it is more complicated. I envisioned a screen with all 
five colors available, no question mark for a prompt, and the 
input appearing with large letters. The following program 
gives you all of that and throws in audible feedback for good 
measure. 

Feel free to change the programs to suit your own needs 
and preferences. You might want to accept longer first names, 
for example, or add a redefined character set to sprinkle a few 
Martians around the screen. A loop might be used to flash the 
words FIRST and RETURN while waiting for input. Maybe a 
tune could play during VBLANK as an extra attraction. 

Using these techniques, you can make a good educational 
program even better. A strong introduction to your program 
will give the kids a positive attitude about it right from the start. 

Exciting Inputs 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

BE 10 DIM A*(10):OPEN #2,4,0,"K:" 

HA 20 BRAPHICS 18:POSITION 6.1:7 #6; " hO-OE-' " : P 

DSITION 1,3:7 #6;"r3I^S5 type in":POSITI 

ON 1,5:7 #6;"Y0UR FIRST NAME , " : POS I T I ON 

1,7 

EA 30 7 #6; "then push UEBSSL - " : SETCOLOR 0,12,8 

:SETCOLOR 1, 15, 12: SETCOLOR 2 , 1 , 6 : SETCOLO 

R 3, 3, 6: SETCOLOR 4,6,4 
PA40 TRAP 20: A*=" " : POKE 764 , 255 : POS I T I ON 4,9: 

7 #6; "*": POSITION 15,9:7 #6; " * " : POS I T I ON 
5,9 
BP 50 GET #2, A: IF A=155 THEN TRAP 40000:GOTO 9 


DB 60 IF A=126 THEN A* = A* < 1 , LEN ( A* ) - 1 ) : POS I T I O 

N 5+LEN < A*) , 9: 7 #6;" ":POKE 85,PEEK<91): 

POKE 84,9:GOTO 50 
GJ 70 A* (LEN ( A*) +1 ) =CHR* ( A) : SETCOLOR 0,3+2*LEN 
(A*> ,8: SOUND 0, 200-10*LEN (At) , 10, 12: FOR 

T=l TO 30:NEXT T:SOUND 0,0,0,0 
PP 80 PUT #6, A: GOTO 50 
IL 90 IF LEN(A*)<1 THEN 20 

NE 100 FOR T=l TO LEN(A*):IF ( ASC ( A* ( T , T ) X 65 
AND ASC (A* (T, T) ) < >32) OR ASC ( A* ( T , T ) ) >9 
THEN 20 
CF 1 10 NEXT T 
LB 120 REM REST OF YOUR PROGRAM 
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Test Maker 

Stephen Levy 



Teachers will find this easy-to-use system for storing ques- 
tions and printing tests to be an invaluable tool and an 
effective timesaver. Questions can be multiple-choice, fill 
in the blank, short answer, true/false, or any combination. 

"Test Maker" was written for teachers. It allows you to print 
nicely formatted tests using questions that have been pre- 
viously LISTed to disk or tape. 

You may save numerous files of questions and pick and 
choose from all the files. Questions can be used in any order. 
Once you have selected the questions, the program will print 
out the test in a uniformly formatted style. 

Midterms and finals become a snap. Just load up all test 
questions used throughout the term and pick the ones you 
want for the final. Save questions from year to year, and add 
to your list each year. Think of it — a simple, easy-to-use way 
to create different tests for each of your classes without having 
to retype the test. It's a teacher's dream come true. 

When printing your tests, you can use virtually any type 
of master. For instance, I have used Test Maker with standard 
ditto masters with an Atari 825 printer (removing the tissue, of 
course) to create masters that have produced well over 100 
copies. 

Creating the Questions 

Test Maker stores all your questions in DATA statements. If 
you create different files for each unit and do not use DATA 
statement line numbers more than once, you will be able to 
draw questions from numerous files. Keep track of the DATA 
statement line numbers. I find it best to print out a copy of the 
files so I know what is in each file. 

Writing the actual questions in DATA statements requires 
that you follow a few simple rules. Here's how a sample 
multiple-choice question would look in final DATA statement 
form: 

600 DATA 4 

601 DATA The first President of the 

602 DATA United States was 

603 DATA Thomas Jefferson 
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604 DATA George Washington 

605 DATA Jimmy Carter 

606 DATA Richard Nixon 

The first DATA statement (line 600) tells the program that 
this is a four-choice multiple-choice question, although you 
could have had as few as two choices. Put a or 1 here if the 
question is not multiple-choice. 

Lines 601 and 602 are the actual question. All questions 
must be broken into two DATA statements, with the break 
occurring between words. In that way, questions can exceed 
the three-physical-lines limitation imposed by Atari BASIC. 

Finally, each of the four possible answers appears as a 
DATA statement. 

The question could have been written this way: 

600 DATA 4,The first President of the,United States was,Thomas 
Jefferson,George Washingtonjimmy Carter,Richard Nixon 

However, I prefer the first method because it is easier to 
use months or years later when the questions aren't quite so 
fresh in my mind. 

I could also have included an indication of the correct an- 
swer as a REM: 

607 REM A is the correct answer 

Printing Special Characters 

Since the questions are held in DATA statements, it might be 
difficult to use a comma embedded in a question. The program 
would assume that the comma indicated the end of the DATA 
item. Whenever you need to include a comma in a question, 
press SHIFT = to get the vertical line character, The program 
will convert this to a comma when it prints a hard copy. 

You can print any character from the Atari character set 
(within the capabilities of your printer, of course). Science and 
math teachers can even print exponents. Just use the charac- 
ters that cause the printer to reverse linefeed one-half line, 
print the exponent, and then insert the characters which cause 
a half-linefeed forward. On an 825 printer, for example, the 
following keystrokes would produce an exponent of 2: 

ESC, ESC, ESC, CTRL +, 2, ESC, ESC, ESC, CTRL - 
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Be sure that you do not use any line number below 571 
for a DATA statement. In addition, it's best not to use the 
same line numbers in more than one file. If you have dupli- 
cate line numbers, then those questions cannot be used on the 
same test. You can avoid the problem completely if you start 
each question on a line divisible by 10, starting with 600, and 
if you never use a number twice. 

Printing Tests 

Once you have created your test questions, you must LIST 
them to disk or tape. Do not use the SAVE command. For 
tape, LIST "C:" and note where on the tape the file starts. For 
disk, LIST "D:filename" . 

Assuming you have saved a copy of Test Maker and 
LISTed copies of the DATA statements, you are ready to print 
a test. First, load Test Maker from disk or tape. Change line 20 
so it contains your own directions. Then ENTER the files that 
include any questions you want to include. If you have used 
different line numbers for all your questions and have not 
used a line number below 571, you will end up with the ques- 
tions as well as the driver program in memory. 

Referring to your list of questions (or scanning the DATA 
statements), make a list of the first DATA statement line num- 
ber for each question that you want to include. Also note the 
order in which you wish them to appear. You do not have to 
use all the questions that are held in memory. 

Run the program. Answer the prompts as they appear. 
Enter one line number at a time, pressing the RETURN key 
after each one. When asked "How many questions on this 
page?" you'll have to estimate how many questions will fit on 
your page. It may be helpful to first print out the entire test on 
a continuous piece of paper, figure how many questions 
should be on each page, and then ask for another copy of the 
test. You can print additional copies of the test without enter- 
ing all the numbers again. 

Practice 

When learning to use this program, it is a good idea to make a 
few practice runs. Create some questions and print some sample 
tests. Get the hang of it before you tackle the real thing. 

After just a little practice, you'll find that this program is 
extremely easy to use. It even includes a simple routine to tell 
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you when you have entered DATA incorrectly. Also included 
are three sample questions (all lines from 600 up). These sample 
questions should not be typed in or included as part of Test 
Maker; they have only been included as examples. 

Test Maker 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

ED 10 DIM YES* ( 1 ) . A* < 1 10) , Q 1 * < 125) , (32* ( 125) , P* 

(250) , BL* (11) :BL*=" (11 SPACES*" 
AB 20 DATA DIRECTIONS: REPLACE THIS LINE WITH 

YOUR SPECIFIC DIRECTIONS FOR THE TEST. 
NO 30 TRAP 30: PRINT CHR* ( 1 25 ) ; " HOW MANY OUESTI 

ONS ON THE TEST" ;: INPUT NUM 
OP 35 IF NUM<2 THEN PRINT CHR* ( 253 ) ; CHR* < 1 25 ) ; 
"YOU MUST HAVE AT LEAST 2 QUESTIONS" : FOR 

1=1 TO 1500:NEXT I : GOTO 30 
DIM N(NUM) 

PRINT "ENTER THE DATA STATEMENT NUMBERS 
<6 SPACESJONE AT A TIME.":G=60 
FOR 1=1 TO NUM 
TRAP 70: INPUT D:BOTO 80 

PRINT CHR* (253) ; "ENTER A NUMBER PLEASE, 
TRY AGAIN.":FOR W=l TO 500:NEXT W:GOTO G 
N ( I ) =D 
NEXT I 
Z=l : P=l 
PRINT "Questions listed to the Screen o 
r Erinter?" ;: INPUT YES*:CLOSE #1 
TRAP 70 

G=105:PRINT :PRINT "This is page " ; P ; " 
-How many":PRINT "questions on this pag 
e"^: INPUT C: IF Z>1 THEN GOTO 250 
HH 200 IF YES*="S" THEN OPEN # 1 , 8 , , " E : " : GOTO 

240 
16210 TRAP 230: IF YES*="P" THEN OPEN #1,8,0," 

P: " :GOTO 240 
PE 220 PRINT "Enter a P for Printer or S for S 
creen" ; CHR* (253) : PRINT : INPUT YES*:CLOS 
E #l:GOTO 105 
CL 230 PRINT CHR* (253) ; "TURN ON THE PRINTER!": 

PRINT :PRINT : GOTO 100 
DD 240 RESTORE : READ P*:PRINT # 1 ;" Name ";: FOR I 
=1 TO 30:PRINT # 1 ;"_";: NEXT IsPRINT #1: 
PRINT #l:GOSUB 500 
JJ 250 P = P+1:TRAP 550:FOR 1 = 1 TO C 
LD 255 IF Z>NUM THEN GOTO 350 
HP 260 D = N (Z) :RESTORE D:PRINT #1 
KB 270 READ TYPE , Q 1 * , Q2* : Y = : CH = 64 : L = LEN ( Q 1 * ) 
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EP 280 

AE 290 

NB 300 
LA 310 
KB 320 

LH 330 
PC 340 
CN 345 
AD 350 

NG 360 
m 370 
LJ 380 

BQ 390 
GL 400 
GN 500 

00 510 

IP 520 

CP 530 

ND 540 

CP 550 



NL 560 



L+l ) =' 



P* (L+2, LEN <Q2«) + 



Z; 



HD 570 


OB 600 


FG 601 


HO 602 


OF 610 


LP 61 1 


NL 612 


HC 613 


DA 614 


BN 615 


IA 616 


OG 620 


FK 621 


GH 622 


HD 623 


DB 624 


BO 625 


IB 626 



GOSUB 500: 



BL*;CHR* <CH) 



TO 500:NEXT W 



copy" ; : INPU 



FINISHED" ; : 



X ) = " I 



P*=Q1*: P* (L+l 
1+L) =Q2* 

PRINT #1 ; " 

Z = Z + 1 

IF TYPE<2 THEN GOTO 340 
FOR ANS=1 TO TYPE:Y=0 
CH=CH+1:READ A*:PRINT #1 

";: P*=A*: GOSUB 500 
NEXT ANS 

IF YES*="S" THEN FOR W=l 
NEXT I:GOTO 105 

PRINT :PRINT "Print another 
T YES* 

IF YES*="N" THEN 380 
GOTO 90 

PRINT "ARE YOU SURE YOU ARE 
INPUT YES* 

IF YES*<>"Y" THEN 350 
END 

FOR X=l TO LEN(P*):IF P* ( X 
P* (X, X ) =" , " 

Y=Y+1: IF P*<X,X)=" " AND Y 
T #1:PRINT #1;BL*;:Y=0 
PRINT #1 ; P* < X , X) ; 
NEXT X 

Y=0: P*=" ": PRINT #1:RETURN 
PRINT : PRINT "YOU HAVE AN ERROR 

DATACB SPACES} STATEMENTS. CHECK 
ESTIONS WHOSE DATA BEGIN ON THE" 
PRINT "FOLLOWING LINES":PRINT N(Z) 
1 ) 

END 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
e was 

DATA Thomas Jefferson 
DATA George Washington 
DATA Jimmy Carter 
DATA Richard Nixon 



THEN 



THEN PRIN 



IN YOUR 
THE QU 



N (Z 



of the 



of thf 



1 

What is the capital 

United States? 

4 

The -first President 

United States was 

Thomas Jefferson 

George Washington 

J i mmy Carter 

Richard Nixon 

4 

The only President of the 

United. States to resign from 



of fie 
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Chapter 4 

Shopping List 

John E. Dombrow 
and John Dombrow 



"Shopping List" is a program that lets you create, update, 
and save to disk personalized shopping checklists. It com- 
bines menus, editing capabilities, parameter-driven print- 
ing, and error recovery to produce a remarkably practical 
shopper's aid. 

"Shopping List" incorporates mixed graphics modes and dis- 
play list interrupts. It also uses PLOT and DRAWTO in 
GRAPHICS 0, machine language subroutines, and a text win- 
dow in GRAPHICS 0. Other features include multiple colors 
and luminances as well as keyboard INPUT without the ? 
prompt. 

Shopping List was designed to be practical. It allows you 
to specify shopping categories in the order that you find them 
at your grocery store. If that order changes, it's a simple mat- 
ter to change the sequence. Items and categories may also be 
added, deleted, or changed. When items are changed, the new 
name will be displayed on the screen where the old name ap- 
peared, allowing you to verify any changes that you make. 
Once a new function is performed, the changed names will 
automatically be sorted into their proper alphabetic sequence. 

Shopping Menus 

Main Menu. When the program is initially run, you'll get 
the Main Menu. It offers the following options: 

View List. If no file is loaded in memory, this selection 
will display a directory of all .SHP files on disk and ask which 
one you want to load. However, if a file is loaded into mem- 
ory, it displays the Categories screen instead. To override this 
action and load a new file, select Read File from the Main 
Menu when a file is currently in memory. 

Print List. If no file is in memory, this displays a directory 
of .SHP files and asks which file to load for printing. It contin- 
ues to a screen which lets you specify normal or condensed 
print, the number of shopping lists to print, the number of 
item columns to print, and whether you are using continuous 
forms or cut sheet paper (which would require a stop at the 
end of each page). This option is designed for use with an 
Epson MX-100 printer. 

163 



Chapter 4 



Read File. This lets you load a new file when one is al- 
ready in memory. If the file in memory has not been saved on 
disk, you'll get a warning message with several options. 

Save File. This will appear only if a file is currently in 
memory (variable C>0). It offers you the option of saving the 
file under its most recent name, saving it under a new name, 
or pressing RETURN to cancel. If you continue, the program 
will calculate the number of disk sectors necessary to save the 
current file. If sufficient space is not available, you'll be so 
notified and no attempt to save the file will be made. At that 
point, you may DELETE some other file to make room or use 
a different disk. 

Create File. This option allows you to make up a new 
shopping list. If a file is in memory and has not been saved, 
you'll get a warning message with options; otherwise, you'll 
get a screen that lets you begin entering categories. A maxi- 
mum of 38 categories (governed by variable MC in line 620) is 
allowed. 

Delete File. This allows you to delete unwanted .SHP files. 
You'll get a directory and be asked which file to delete. If you 
don't want to delete a file, press RETURN. This option will 
not affect a file in memory and may be selected at any time. 

Quit. This ends program execution. If a file exists in mem- 
ory, you'll get a warning message with appropriate options. 

Every effort has been made to insure that a file or updates 
to a file cannot be accidentally lost by inadvertent use of the 
above options. Variable C (number of categories) and variable 
FS (file saved) are always checked to see if a file exists or dif- 
fers from the version saved on disk; if so, the program will 
allow you to recover. You always have the option to return 
from a selection that was inadvertently entered. To select an 
option, simply enter the associated letter without pressing 
RETURN. 

Directory Menu. This displays a directory of up to 20 
.SHP filenames per disk. It is also useful with Read, Save, or 
Delete. In the case of Save File, the directory is included as a 
convenience to show what filenames already exist. 

Each filename is displayed with a unique alphabetic 
identifier. This identifier allows for selection with a single key- 
stroke. All filenames are suffixed automatically with the ex- 
tender .SHP; you do not need to type in the extender yourself. 
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After the filenames, the remaining sectors available on the 
disk are displayed. 

Categories Menu. You'll get this menu if you want to 
view a list with a file in memory, view a list or read a file after 
a file is loaded, create a file, or use the Cats option from the 
Items Menu. 

The Categories screen will display all categories entered, 
in any order determined by you. To select an option, simply 
enter the associated letter. 

Add. This allows you to add categories to your shopping 
list. All additions will appear at the end of the list. When you 
enter the Add option, the text window will change to allow 
entry of the new categories. The format allows for up to 16 
characters per category; any characters beyond will be trun- 
cated. To exit, press RETURN with a blank category name. 

Insert. This option lets you insert a new category into an 
existing list. Enter the number that you want the new category 
to have and press RETURN. The text window will change to 
the Add mode for the entry of one new category. Then enter 
the new category and press RETURN. The Categories Menu 
will again be displayed with the new category inserted at its 
proper place. 

View. This lets you view, enter, and update the items 
associated with each category. Enter the category number and 
press RETURN. The Items Menu will then be displayed. 

Renum. This lets you rearrange the order of existing cate- 
gories. Specify the old category and its new location, and the 
Categories screen will be redisplayed with the categories in 
the new order. 

Change. This lets you change a category name. Enter the 
category number and press RETURN. The original name will 
be displayed for you to modify as desired; when you're 
through, press RETURN. The Categories Menu will be 
redisplayed with the change. 

Delete. This lets you delete an unwanted category. Enter 
the number and press RETURN. The text window will display 
the category name selected and ask for verification. Enter a Y 
or N. 

If you try to delete a category that still has items asso- 
ciated with it, further verification is requested. If you continue, 
all items associated with the category are deleted as well. 
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Main Menu. This returns you to the Main Menu. If you 
make a mistake while using any of these options, you'll get an 
appropriate error message and be returned to the Categories 
Menu. 

Items Menu. This menu and display will show all items, 
if any, associated with the selected category. All items will be 
in alphabetical order according to the ASCII sequence. A list 
of the remaining entries is displayed in the text window dur- 
ing certain options and is governed by variable ME (maximum 
entries) in line 620, which defines the maximum number of 
items across all categories (initially set to 400). The keyboard 
is set to lowercase when entering items, and the program will 
capitalize the first character of the item if necessary. 

To select an option, enter the appropriate letter without 
pressing RETURN. The following options are available. 

Next Pg (Next page). This displays the next sequential 
screen of items, if more items exist. 

Last Pg (Last page). This displays the previous screen of 
items, if you have advanced beyond the first screen. 

Add. This lets you enter additional items in the selected 
category. The items will be displayed in the order entered un- 
til you exit the Add mode; at that time all items will be sorted 
and page 1 of the Items Menu will be redisplayed. To exit and 
return to the Items Menu, press RETURN with a blank item 
name. 

Cars (Categories). This option will return you to the Cate- 
gories Menu. 

Change. This lets you modify an item name displayed on 
the current screen. Enter the appropriate item number and 
press RETURN. The item name will be displayed in the text 
window. Press RETURN after you have completed the change, 
and the new name will be displayed in place of the original. 

The new name(s) will be sorted into correct sequence 
when you select one of the Add, Cats, Sort, or Pg 1 options. 
That allows you to easily update all items. 

Delete. This deletes a specific item from the current 
screen. Enter the appropriate number and press RETURN. The 
item name will be displayed, along with the option to con- 
tinue. Enter Y or N accordingly. If Y is entered, the item will 
be deleted and scrolled off the graphics portion of the display. 

Sort. This forces a sort of all items associated with the se- 
lected category, if any updates have been performed. For ex- 
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ample, it may be used after making modifications with 
Change, to display all items in the correct sequence without 
having to exit the Items Menu or do additional Adds. After 
entering this option, the first page of the Items Menu will be 
displayed. 

Pg 1 (Page 1). This option displays the first screen of the 
Items Menu/display. If the items have been modified, they 
will be re-sorted into ascending ASCII sequence. 

Main Menu. Returns you to the Main Menu. 

Print Menu. This menu lets you print your list. To select 
an option, enter the corresponding number without pressing 
RETURN. It offers the following options: 

Normal /Condensed. This allows you to print your shop- 
ping list in normal or condensed print; the default is con- 
densed print. The default may be changed by modifying 
variable MODE$ in line 720 in the program. 

Number of Columns of Items. This lets you select the num- 
ber of columns of items across the page of the shopping list. 
The default value is 5; it can range from 1 to 9. The default 
may be changed by modifying variable COL in line 720. 

Number of Pages to Print. This lets you select the number 
of shopping lists to print. One list is considered a page. A 
page eject is issued after each list is printed. The default is 1; 
the value can range from 1 to 9. The default may be changed 
by modifying variable PAGES in line 720. 

Any changes made to these parameters during program 
execution will remain in effect until other changes are made 
(or until the session is completed). 

A Closer Look 

The shopping list file is kept in memory as a sequential group 
of records in F$. All items sequentially follow their respective 
category. Array P contains a relative displacement to each 
category in F$. Variable C maintains a count of active cate- 
gories, while variable E maintains a count of active items. 

When a category is added, it is placed at the end of F$, 
and P(C) is updated to reflect the displacement. When a cate- 
gory is inserted, the proper position in F$ is calculated, the 
data to the right of this position is moved one entry to the 
right, and the new category is inserted. Array P is then up- 
dated to reflect the new displacements. Likewise, when a cate- 
gory is deleted, the category and any items are removed by 
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moving all data to the right of the category back to the left 
and updating array P. 

The move left and move right subroutines are machine 
language subroutines. Machine language is needed to move 
data left because of BASIC'S inability to move multiples of 256 
characters. 

The machine language subroutines implemented in Shop- 
ping List have been converted to string arrays. 

With the exception of documenting the Epson MX- 100 
printer control characters, REMarks have been omitted from 
the program to increase speed and reduce size. For those who 
wish to analyze the program or make changes or enhance- 
ments, here is a line-by-line description. 

Line(s) 

20 Go to initialization code. 

30-40 Solicit a reply and compare it to legal values in R$. If not 

valid, sound the keyboard speaker. If valid, R is set to the 
relative position of the response in R$. 

50 Sound the keyboard speaker. 

60-70 Display Categories/Items screen in a two-column format. 

Note in line 70 the use of PLOT and DRAWTO in 
GRAPHICS 0. First the COLOR is set to the value of the 
character you wish to propagate with the DRAWTO. 

100-120 Solicit a category or item number and verify. If not valid, 
sound the keyboard speaker. 

130 Display all categories in two-column format. 

140-170 Display one screenful of items in two-column format. 

180-200 Sort all items associated with the specific category and re- 
set the changed flag. 

210-250 Display an item for change, solicit the new value, and 
verify. If the first character is lowercase, change it to 
uppercase. 

260 Set up a display list routine to alter the luminance of the 

characters in the GRAPHICS graphics part of the screen 
and the luminance of the characters in the GRAPHICS 
text window, and change the background luminance of 
the text window to one shade darker than the graphics 
part of the screen. 

270-300 Display PRINT parameter menu with current settings. 

310-340 Print horizontal lines in shopping list printout. 

350-470 Display disk directory of .SHP files. Current option is dis- 
played in GRAPHICS 2 mode at the top of the screen, 
and the directory is displayed in GRAPHICS 0. A text 
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window is used at the bottom to request selections. The 
filenames found on the disk are saved in array D$. 

480-540 Request a file selection and validate. If invalid, sound 
keyboard speaker. If valid, build complete filename in 
FN$. 

550-570 Set up mixed GRAPHICS 2/GRAPHICS screen by 

modifying the display list. The current option is displayed 
in the GRAPHICS 2 portion. 

580-590 Make a sound. The pitch of the sound is determined by 
the value passed in variable K. 

600-720 Initialize constants and variables; set up machine lan- 
guage subroutines and printer parameter defaults. 

730 Open the keyboard and screen editor for input. 

740-860 Display Main Menu, get selection, and go to appropriate 
routine. 

870-930 Quit option routine. Lines 880-900 are also used by other 
routines to display the FILE NOT SAVED CONT Y/N? 
option. 

940-1030 Display Categories Menu, get selection, and go to appro- 
priate routine. 

1040-1220 Add or Insert category routine. 

1230-1250 Change category routine. 

1260-1350 Delete category routine. 

1360-1480 Renumber category routine. 

1490 View category. 

1500-1610 Display Items Menu, get selection, and go to appropriate 
routine. 

1620-1630 Sort items routine. 

1640-1670 Next Pg option on Items Menu. 

1680-1690 Last Pg option on Items Menu. 

1700-1880 Add items routine. 

1890-1940 Change item routine. 

1950-2010 Delete item routine. 

2020-2120 Load a file from disk for Main Menu Read option, or 

View/Print option and no file in memory. See write-up 
for lines 2640-2830 for file characteristics. If a disk error 
occurs that inhibits loading the complete file, responding 
to the RETRY Y/N message with an N will cause reten- 
tion of data already read to help in the re-creation of the 
file. Before continuing, check the last category displayed, 
then resave and reread the partial file before rebuilding. 

2130-2610 Print a shopping list based on PRINT parameters. The ti- 
tle is printed in the Epson enlarged character set if the 
number of columns is greater than 1. The PRINT routine 
uses Epson MX- 100 printer control characters. 
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2620-2630 Read file initialization. 

2640-2830 Save file routine. The file is a sequential file with items 
following their respective categories. Prior to writing a 
new category, a one-character binary value of the cate- 
gory number is written. This is used to detect each new 
category. Before writing the file to disk, a check is made 
to see if the file will fit. If a new filename is entered for 
the SAVE and the filename already exists on the disk, an 
OVERWRITE Y/N request message will be issued. 

2840-2930 Delete file routine. 

2940-2970 Error recovery subroutine for disk and printer errrors. 

Shopping List 

For error-free program entry, read "The Automatic Proofreader" in Chapiter 1 before typing 
in this program. 

M 20 GOTO 600 

BP 30 GET #K5,ANS:FOR R = K1 TO LEN(Rt): IF ANS = A 

SC(Rt(R,R)) THEN RETURN 
OH 40 NEXT R:GOSUB 50:GOTO 30 
NF 50 FOR N = K15 TO K40:POKE 53279, KB: NEXT N:RE 

TURN 
KN 60 POKE 752, Kl:? #K6 ; CS* ; : POS I T I ON K18-LEN( 

R*> /K2, K0: ? #6; "■" ; R*; "■" ; 
AC 70 COLOR 124: PLOT K 1 9 , K 1 : DRA WTO K19,K19:RET 

URN 
BA B0 U = USR (PK, 656, Kl , 657, K2> : ? "I ENTER NUMBE 

R TO ";R*;" : <8 SPACES* I " ; 
IB 90 U=USR (PK, 752, K0, 657, 27) : ? ■':";: INPUT #K4 

, A*: POKE 752, Kl:? " C Z J " ; : I F LEN(A*)<KS T 

HEN A$(LEN(fl$)+Kl,K8)=BL* 
EB 100 A* = A$ (Kl , KB) : IF A*=BL*(33) THEN X=K0:RE 

TURN 
HA 110 TRAP 120: X=VAL <A$) : TRAP CLEAR: IF X >K0 A 

ND X<=K AND INT(X)=X THEN RETURN 
AG 120 GOSUB 50:POKE 656,Kl:GOTO 90 

00 130 FOR I = X TO C: X = P ( I ): J=I >K 1 9 : POSITION (I 

<K10) +K20*J , I-K19*J : ? #6 ; STRJ ( I ) ; " " ; F* 

(X, X+Z ) ; : NEXT I : RETURN 
NF 140 R*=I*: GOSUB 60 
HJ 150 X = F + EL+ (PG-K1 ) *K38*EL: FOR I=K1 TO K38: I 

F X=T THEN 170 
BH 160 J = I >K19: POSITION ( K K 1 ) +K 20 * J , I -K 1 9 * J : 

? #6;STR* (I ) ; " " ; F* ( X , X + Z ) ; : X = X +-EL : NEXT 
I 

01 170 K= I -K 1 : RETURN 

KC 180 X= (T-F) /EL: IF X<K3 THEN 200 

JD 190 U = USR(PK,204,Z,205,EL,206,K0) :U = USR(SRT 
, ADR (F* (F + EL) ) , X-Kl ) 
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IE 


200 


m 


210 


EC 


220 


HI 


230 


CA 


240 


PK 


250 


3 i 


260 



" I ENTER CHAN 
I " ; : U=USR (PK, 



BL 270 

JP 280 

OH 290 
PP 300 

NC 3 10 

AN 320 
PA 330 

IH 340 
LC 350 
KE 360 

FH 370 

IJ 380 

EJ 390 

FL 400 

on 410 

HH 420 
IK 430 



CHNG=K0: RETURN 

U=USR (PK, 656, Kl , 657, K2) : ? 

GE{3 SPACES3 : " ; F* ( J , J + Z ) ; 

752, K0, 657, Kl?) 

? ":";: INPUT #K4,fl*:P0KE 752, Kl:? " i Z > " 

; : IF LEN(A*)<EL THEN At (LEN(At) +K1 ,EL)= 

BL* 

I=ASC(At) : IF I >96 AND I < 1 2 3 THEN A*(K1, 

Kl ) =CHRt ( I -32) 

At=At(Kl,EL): IF At=BLt(Kl,EL) OR A*=F*( 

J,J+Z) THEN RETURN 

FtU, J + Z)=At:FS = K0: I = X>K19: POSITION K3 + 

K20* I , X-K 19*1:2 #6; A*; :CHNG = K1:RETURN 

DL=PEEK (560) +PEEK (561 ) *K256: U=ADR ( " HQ 

CD> CO {JJDfK CX3TJHC J J CO CW3 Sh3" ) : POKE U 

+ K2, K: U = USR (PK, 5 12, U, DL+24, 130, 54286, 19 

2) : RETURN 

POSITION K2,K6:? #K6;"53. PRINT CORMAL/E 

ONDENSED " ; MODE* 

? #K6; "E- NUMBER OF COLUMNS OF ITEMS... 
. . . " ; COL 

? #K6;"E. NUMBER PAGES TO PRINT 

. . . " ; PAGES 

7 #K6;"E- KONTINUOUS FORM/giNGLE SHEET. 

. . . " ; TYPE*: RETURN 



? # K 1 ; 



O COL-K1 : ? #K1 ; 



A*;: IF COL>Kl THEN FOR J=K1 T 



; A* ; : NEXT J 



2 *K1 ; " " : RETURN 

2 #K1 ; " I " ; A*; : IF COL>Kl THEN FOR J=K1 T 

O COL-K1:? #K1 ; " - " ; A*: : NEXT J 

2 #K1 ; " I " : RETURN 

GOSUB 550 

GOSUB 580: TRAP 540: OPEN #K 1 , K6 , K0 , " D 1 : * 

. SHP" : D*=" " 

TRAP 390: INPUT #K1,A*:TRAP CLEAR: IF LEN 

(A*)<K17 THEN 390 

L=LEN(D*)+K1:D*(L)=A*(K3,K10):D*(L+KS)= 

A* (K15) : GOTO 370 

CLOSE #K1: POSITION K2,K1:? "{Q>{35 R3 

CE>":IF D*="" THEN 460 

T=LEN (D*) /K22: IF INT(T)<>T THEN D*(LEN( 

Dt) +K1 > =BL* (Kl , K 1 1 ) : T = T + . 5 

FOR I=K1 TO T: R*=BL* (K5) : FOR J=K0 TO Kl 

:X=(I+J*T)*K11:L=K18*J+K1 

R* (L, L ) =" I " : IF D* ( X-K 10, X-K 10) = " " THEN 

450 
R*(L+K1,L+K4)=" (3) ":R*(L+K2,L+K2)=CHR* 
(64+X/K1 1 ) : R* (L+K5, L+K12) =D* ( X-K 10, X-K 3 
) :R* (L+K14,L + K16)=D* (X-K 2, X) 
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PO 440 FOR X = L + K13 TO L + K6 STEP -KlsIF R* < X , X ) 

=" " THEN R* < X , X) =" . " : NEXT X 
MO450 NEXT J:? R*;"I":NEXT I 
LG 460 ? " I " ; BL* (Kl , 35) ; " I " : ? "!<9 SPACES]"; At 

; " £10 SPACES! I " 
GB 470 ? " CZJC35 R J C C 3 " : 7 :? :? " iZ SPACES] ONL 

Y '.SHP" FILES ARE LISTED. ": RETURN 
IB 480 GOSUB 50 
HC 490 POSITION K0.K20:? "(DEL L I NE > " ; : POS I T I 

N K8,K20:? " WESMSMaD EECMSSaMMSMXnnnM'' r 

KE 500 GET #K5,X:IF X=155 THEN RETURN 

IA510 X= < X-64 ) *K1 1 : TRAP 480 : A * = D * < X -K 1 , X -K3 ) 

: TRAP CLEAR: IF A * = BL* ( K 1 , KB ) THEN 480 
GA 520 FN*="D1 : " : FOR I=K1 TO K8: IF ft*<I,I><>" 

" THEN FN* ( I+K3) =A* ( I , I ) : NEXT I 
EH 530 FN* ( I +K3) =" . SHP " : RETURN 
PE 540 GOSUB 2740: GOTO 360 

MM 550 GRAPHICS K0 : DL = PEEK ( 560 ) +PEEK ( 56 1 ) *K256 
IP 560 U = USR (PK, 75 2, Kl , 7 09, KB, 7 10, 66, 7 1 1 , 182, 7 

12,66,DL+K3,71,DL+K6,K7,DL+28,65,DL+29, 

DL, 87, K2) 
AH 570 ? #K6;"C3 SPACES} " ; R$ ; "■HE" : POKE 87, K 

0:RETURN 
HE 58 K = K1 3 
B6 590 FOR I=K15 TO K0 STEP -0.5:FOR J = K2 TO K 

STEP -Kl: SOUND K0 , K - J , K 1 , I : NEXT J:NE 

XT I:RETURN 
EA 600 K0 = 0: Kl = l : K2 = 2: K3 = 3: K4 = 4: K5 = 5: K6 = 6: K7 = 7 

: K8=8: K9=9: K 1 0= 1 : K 1 1 = 1 1 : K 1 2= 1 2 : K 1 3= 1 3 : 

K14=14: K15=15 
PB 610 K16=16: K17=17: l<18=18: K19=19: K20 = 20: K21 = 

21:K22=22:K38=38:K39=39:K40=40:K128=128 

: K256=256 
HH 620 MC = K38: ME = 400 : MF = K20 : EL = K 1 6 : Z = EL-K 1 : CLE 

AR=40000:FS=K1 : C=K0 
HS 630 DIM SRT* ( 126) , ML* (39) , MR* <47) , PK* (25) , M 

ODE* (Kl) ,TYPE*<K1) ,F*( (ME+MC) *EL) , D* (MF 

*K1 1 ) , FN* (K15) , RN* (K15) 
EE 640 DIM BL* CK40) , A* (K40) , R* (K40) , I* (EL) , BZ* 

(K1),CS*(K1),P(MC+K1) 
IE 650 RESTORE 5000 
HH 660 FOR 1 = 1 TO 126:READ OQ : SRT* ( I , I ) =CHR* ( Q 

Q) : NEXT I 
DL 670 FOR 1 = 1 TO 39:READ QQ : ML* ( I , I ) =CHR* ( QQ ) 

:NEXT I 
EB 680 FOR 1 = 1 TO 47:READ OQ : MR* ( I , I ) =CHR* ( QQ ) 

:NEXT I 
JI 690 FOR 1 = 1 TO 25:READ QQ : PK* ( I , I ) =CHR* ( QQ > 

-.NEXT I:RESTORE 
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AB 700 SRT=ADR(SRT*> :ML=ADR(ML«) :MR=ADR<MR*) :P 

K = ADR <PK*) 
IF710 BL*=" ":BL*(K40)=" " : BL* < K2 ) = BL* : FN* = " " 

:RN*=FN$:BZ*=CHR*(253) : CS$=CHR* ( 125) 
PH 720 MODEt = "C" : C0L = K5: Pft6ES = Kl : TYPE$="S" : P (K 

0) =K0: RS = K0 
AF 730 OPEN #K5, K4, K0, "K: " : OPEN #K4 , K4 , K0 , " E : " 
FF 740 GRAPHICS K2 : U = USR < PK , 7 1 , K4 , 7 1 1 , 72 , 7 1 2 , 

K4) 
NO 750 POKE 201 , K4: POSITION K3,K1 
HA 760 ? #K6; "SHOPPING LIST":? #K6 
01770 ? #K6,"Eiew list" 
FL 780 ? #K6,"rSrint list" 
HB 790 IF C THEN ? #K6 , "Bead file":? #6,"Eave 

file" 
HP 800 ? #K6,"Sreate file" 
HP 810 ? #K6,"Eelete file" 
MP 820 ? #K6, "£Tui t " : POKE 752, Kl 
AJ 830 ? CSt:? :? "INSERT DATA DISK AND ENTER 

SELECTION. " 
IF 840 R*="VPRSCDQ" : IF NOT C THEN R*<K3. K4)=R 

* 
1A 850 GOSUB 30 

CO 860 ON R GOTO 2020 , 2 1 30 , 2620 , 2640 , 940 , 2B50 
JA 870 IF FS THEN 910 
IJ 880 ? CS*:? :? ■ €3 SPACES} FILE NOT SAVED CO 

NTINUE WOSCM " ; 
AH 890 I=R:R*="NY" : GOSUB 30: IF R = K1 THEN 830 
A0 900 R=I : FS = K1 : GOTO 860 
NP910 CLOSE #K4: CLOSE #K5: GRAPHICS K0:POKE 20 

1 , K 1 
H(t 920 POSITION K9,K6:? 



5HOPLIST TERMIHHTED 



HP 930 POSITION K2,K18:END 

IF 940 IF NOT FS THEN 880 

PF 950 F*=" " : C = K0: E = K0 

NB 960 GRAPHICS K0 : U = USR < PK , 709 , K 1 2 , 7 1 , 1 98 , 7 1 

2, 50, 703, K4) : K=196: GOSUB 260 
AP 970 R«=" fBT8<rfttil:><=a " : GOSUB 60: IF NOT C THEN 

R=Kl:GOTO 1070 
AA 980 X=K1: GOSUB 130 
JB 990 ? CS*; " {QJ €8 R> €W> €7 R> <W>C8 R> CW> 17 R> 

< E y " 
BJ 1000 ? "I EDDC4 SPACES} I EIEW I EHANGE I 

C3 SPACES}?(3 SPACES) I " 
JK 1010 ? "I SjNSERT I EENUM I EELETE I < 5 R} I 



CE 1020 ? " CZ} (7 R}j 
C C } " ; 



FOR MfllM MENU 



l<6 R} 
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MAXIMUM NUMBER CflTEG' 



NO COTEGORIE5 TO 



JG 1030 R*=" AICDRVM" : GOSUB 30:DN R GOTO 1070,1 

210, 1230, 1260, 1360, 14 90, 7 40 
F! 1040 ? CS*;BZ$:? :? "I 

wsaKMaarnHMm " = = goto 1060 

KO 1050 ? CS*;BZ*:7 :? 

R*; 
BC 1060 FOR I=K1 TO K256:NEXT I : GOTO 990 
FL 1070 IF C = MC THEN 1040 

FQ 1080 7 CS*;"CQ><33 R>€E>"»? "I {33 SPACES? I" 
Lt: 1090 ? " CZy C5 I Ml I OB I |— IB M>\ EBHCf <5 R} 

CO"; 
FN 1100 IF R>K1 THEN K = C:GOSUB 80: IF NOT X TH 

EN 990 
HF1110 ON R GOTO 1120,1120,1250,1280,1380,151 


AA1120 U = USR (PK, 656, Kl , 657, K2> : ? "I ENTER CAT 
EGORY :C16 SPACES>I " ; : U=USR < PK , 752 , K0 
,657,K19) 
HD1130 ? ":";: INPUT #K4,A*:POKE 752, Kl:? " 

CZ}";:IF LEN(A*)<EL THEN A* ( LEN < A* ) +K 1 
, EL) = BL* 
HP 1140 A* = A* (Kl , EL) : I F A* = BL* ( K 1 , EL ) THEN 990 
HA 1 150 C = C + K1 : FS=K0:K=LEN (F*> + K1 : Ft <K> = A*: IF 

R=K2 THEN 1190 
EG 1 160 P (C) =K: X = C 
JO 1170 GOSUB 130: IF C<MC THEN ON R GOTO 1120, 

990 
AG 1180 ? CSt:? :? " ■=r:>:* B3BSM MIISI -1 1 JMSSi < ^il :»a-i 

■aXSMOi" ;: K = K40: GOSUB 590: GOTO 990 
HD1190 ? CS*; : I=P ( X ) : J = ADR (F* ( I ) ) : U = USR (MR, J , 

J+EL, K-I-Kl ) : F* ( I , I+Z ) = A* 
Kl 1200 FOR I=C TO X+Kl STEP -K 1 : P ( I ) =P ( I -K 1 ) + 

EL:NEXT I : GOTO 1170 
m 1210 IF C THEN R*=" INSERT":GOTO 1070 
AK 1220 R*="BSiaMaa«" :GOTO 1050 
KA 1230 IF C THEN R*= " CHANGE ": GOTO 1080 
DH 1240 R*="Sririni3MI" : GOTO 1050 
DF 1250 J = P(X):GOSUB 2 1 : FS = K0 : GOTO 990 
LA 1260 IF C THEN R*= " DELETE ": GOTO 1080 
EN 1270 R*="BHMaiai" :GOTO 1050 

BK 1280 I=P ( X ) : U = USR (PK, 656, Kl , 657 , K2) : 7 "I DE 
LETE ";Ft(I,I + Z);":«Kl ? I":? " 
{DEL LINEXZX33 RXC>"j 
CH 1290 R*=" NY" : GOSUB 30: IF R = K 1 THEN 990 
JG 1300 L=LEN(F*)+K1:P(C+K1)=L:J=P(X+K1):K=J-I 

: IF K = EL THEN 1320 
EE1310 ? CS$;BZ*:? :? "ITEMS STILL ASSIGNED - 
CONTINUE W BBEM " = = R*="NY" : GOSUB 30: IF 
R=K1 THEN 990 
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PH 13 20 

10 1330 

ON 1340 

OF 1350 



DP 1360 

PL 1370 

HN 13S0 

HA 1390 

BL 1400 

II 1410 

AC 1420 



BN 1430 

ND 14 40 

IH 1450 

KG 1460 



CF 1470 

HE 1480 

DN 1490 

NB 1500 

LH 1510 

JB 1520 

CE 1530 

HN 1540 

OA 1550 

LL 1560 

EJ 1570 

CO 1580 

KC 1590 



? CSt:C=C-Kl: IF X >C THEN Ft ( I ) =" " :GDTO 

1350 
U=USR(ML,ADR(F*(J> ) , ADR(Ftd) ) , L-J ) : Ft 
= Ft <K1 , L-K-Kl ) 

FOR I=X TO C: P < I) =P ( I+Kl ) -K: NEXT I : GOS 
UB 130 

E = LEN(F*)/EL-C:J=OK 18: POSITION K20*J , 
C + K1-K19*J: ? #6; BL* (Kl, EL+K3) ; : FS= (C = K 
0) : GOTO 990 

IF OKI THEN R*="RENUM " : GOTO 1080 
R*="HanilSlil=LJi":GOTO 1050 

I=X: R*="MAKE " : GOSUB 80 : I F NOT X OR 
X=I THEN 990 

? CSt:P(C+Kl)=LEN(Ft)+Kl:F=P(I> : K = P ( I + 
Kl)-F: R = K: Dt < MF *K 1 1 ) = " X " 
IF I>X THEN F=P(X):GOTO 1450 
L=LEN(Dt): IF L>K THEN L=K 

T = P (X+Kl > -L: J=ADR (Ft (F> ) : U = USR < ML , J , AD 
R (Dt > ,L) :U=USR(ML, J+L, J,T-F) :U=USR(ML, 
ADR(D$) , ADR (Ft (T) ) , L) 
K=K-L:IF K THEN 1410 

FOR J=I+K1 TO X : P ( J ) =P ( J+Kl ) -R: NEXT J: 
X=I:GOSUB 130-.GOTO 990 
L=LEN(D$): IF L>K THEN L=K 

T = P ( I+Kl ) -L: U = USR (ML, ADR (Ft (T> ) ,ADR(D$ 
>,L):J=ADR(Ft(F)):U=USR(MR,J,J+L,T-F-K 
1) :U = USR(ML,ADR(Dt) ,J,L) 
K=K-L: IF K THEN 1450 

FOR J=I TO X+Kl STEP -K 1 : P ( J ) =P ( J -K 1 ) + 
R:NEXT J : GOSUB 130:GOTO 990 
IF C THEN R*="VIEW ":GOTO 1080 
Rt="EH32B" : GOTO 1050 

GRAPHICS K0: U = USR (PK, 709, K 1 2 , 7 1 , K6 , 7 1 
2, 50, 703, K4) : K = K4: GOSUB 260 
P(C+K1)=LEN(F*)+K1:L=X:F=P(L):T=P(L+K1 
) : PG = K1 : CHNG=K0 

It=Ft (F, F+Z > : FOR I=EL TO Kl STEP -Kl-.I 
F It(I,I>=" " THEN NEXT I 

It=I* <K1 , I > : FOR I=K1 TO l.EN( T*> : It ( I , I 
> = CHRt ( ASC ( I * < I ) ) t-K J 28) : NEXT I 
GOSUB 140 

? CSt;"CQ><:9 RXHH& R3CW5C8 R3{W>C7 RJ 
f E > " 
? " I CEXT PG I ETDD I KHANGE t gORT I 

II 

? " I OAST PG I CADS I EELETE I EG 1 I 

£6 R3 



7 " i 1 I { 8 R y 
{. C 3 ■ " ; 



FOR MHIN MENU 
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pp 


1600 


CH 


1610 


OP 


1620 


EJ 


1630 


AP 


1640 


KK 


1650 


GO 


1660 


EB 


1670 


DA 


1680 


OD 


1690 


OP 


1700 


AJ 


1710 


FP 


1720 


FA 


1730 


10 


1740 


Al 


1750 


KM 


1760 


BD 


1770 


86 


1780 


AH 


1790 


PH 


1800 


DL 


1810 


PQ 


1820 


ON 


1830 


M 


1840 


NE 


1850 


t:i 


1860 


01 


1870 


EJ 


18S0 


HJ 


1890 
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R$="NLTACDMPS" : GOSUB 30: IF <R=3 DR R=7 

) AND CHNG THEN GOSUB 180 

ON R GOTO 1640,1680,960,1700,1910,1950 

, 740, 1890 

IF T-F>EL THEN 1890 

R*="aiiai" : GOTO 1930 

IF (T-F) /EL-K1 >PG*K3B THEN PG=PG+Kl:GO 

TO 1550 

? CS*:? :? , , " ■:r.iM:i=K¥i " : 

? " »<«»<;r.BM " : : GOSUB 50 

FOR I=K1 TO K12B:NEXT I : GOTO 1560 

IF PG>K1 THEN PG=PG-K 1 : GOTO 1550 

? CSt:? :? , , " ■HEMHEij" ; : GOTO 1660 

K=K0:X=K0:IF E=ME THEN 1850 

Rt=It:GDSUB 60 

? CS*; " CO: C33 R:tE:":? " IC33 SPACES: I " 

? " CZJCS I ■! I gB I j— fi1:Mi1J*Oi:i.-« {5 R3 

CO":? ,"C3 SPACES: REMAINING ENTRIES: 

";ME-E;" C3 SPACES: " ; 

IF R>K4 THEN GOSUB 80: IF NOT X THEN 1 

560 

J=F+ (PG-K1 > *K38*EL+X*EL: ON R-K4 GOTO 1 

940, 1970 

U=USR <PK, 656, Kl , 657, K2) : ? "I ENTER ITE 

M >s<16 SPACES3 I " ; : U=USR (PK, 702 , K0 

, 656, K3, 657, 28) 

? ME-E;"t3 SPACES: ";: U = USR (PK , 656, Kl , 7 

52, K0, 657, K19) 

? ":■';: INPUT #K4,A$:P0KE 752, Kl:? " 

CZ:";:POKE 702,64: IF LEN(A*)<EL THEN A 

*(LEN(A*)+K1,EL)=BL* 

A*=A* (K 1 , EL) : IF A$=BL$ ( K 1 , EL > THEM 186 



I=ASC(At): IF I >96 AND K123 THEN A*(K1 

, Kl ) =CHR* ( I -32) 

FS=K0: E=E+K1 : X=X+EL: K=K+K1 : I=LEN (F$) +K 

1 : F* < I ) = A$ 

IF I-T THEN J = ADR(Ft(T) ) : U = USR !MR, ,! , J + 

EL, I-T-Kl) :F*(T,T+Z)=A* 

IF K>K38 THEN GOSUB 60:K=K1 

J = K>K19: POSITION ( K< K 1 > +K20 * J , K-K19*J 

:? #6; STR* (K> ; " " ; A* ; : I F E<ME THEM ON 

(K=K1 AND X>EL)+K1 GOTO 1760,1720 

? est:? :? , " WESBES SSL U3M * i 3E JM WZS3MZMSM 

";: K=K40": GOSUB 590 

IF NOT X THEN 1890 

CHNG=K1:IF E<ME THEN ? CSt; 

FOR I=L+K1 TO C:P( I ) =P ( I ) +X:NEXT I : T=T 

+ X 

IF CHNG THEN GOSUB 180 
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FI 1900 PG = K1:G0T0 1550 

PO 1910 IF T-F>EL THEN R* = " CHANBE " : GOTO 1720 

GJ 1920 R*="HUinM=" 

JI 1930 7 CS*;BZ*;:7 :? , , "WEXSMEBSSBMMSM" ; R* 5 " 

■" ; : GOTO 1670 
GB 1940 POKE 702,K0:GOSUB 210:POKE 702,64:GOTO 

1560 
AK 1950 IF T-F>EL THEN R* = " DELETE ": GOTO 1720 
LK 1960 R*="EIMM3lB" ■ GOTO 1930 
GJ 1970 U=USR(PK, 656, Kl ,657. K2) : 7 "I DELETE "; 

Ft(J, J + Z> ; "sMSEEM 7 l":7 "(DEL LIME] 

<Z3 <33 R>£C>"5 
FH 1980 R*="NY" : GOSUB 30: IF R = K1 THEN 1560 
EJ 1990 7 CS$; : I=ADR (Ft < J ) ) : U = USR (ML, I+EL, I , LE 

N (F*) +K1-J-EL) : FOR I=L+K1 TO C:P(I)=P( 

I ) -EL: NEXT I : E=E-K1 : FS=K0: T=T-EL 
DF 2000 F$ = F$ (Kl , LEN (F* ) -EL) : GOBUB 150: IF K<K3 

S THEN J=K>K18: POSITION K20 * J , I -K 1 9* J : 

7 #6; BL* (Kl , EL+K3) ; 
(II 2010 GOTO 1560 
SE 2020 IF C THEN 960 
HH 2030 R*="D!HEE" 

PI 2040 GOSUB 350:GOSUB 490: IF X=155 THEN 740 
JL 2050 POKE 752. Kl : POSITION K2,K20:7 " 

(DEL LINEX3 SPACES 3 ■ »iT:T >> * 7 r»» *< * =« ";F 

N* 
NP 2060 GOSUB 580: F*=" ": TRAP 2110:OPEN #K1,K4, 

K0, FN*: E=K0: C=K0: RN*=FN* 
BB 2070 INPUT #K1,A*:IF LEN(A*)=K1 THEN C = C + K1 

: P (C)=LEN (F*) +K1 : GOTO 2070 
BN 2080 IF E<ME THEN Ft (LEN(F$)+K1 )=fl*:E = E + Kl : 

GOTO 2070 
DM 2090 POSITION K3,K21:7 BZ*; "MEMORY FILE TOO 
SMALL - ENTER ■:?=*■ " : : Rt = CHRt (155) : GO 

SUB 30 
GP2100 CLOSE #K1:TRAP CLEAR:ON R GOTO 960,214 

0, 960 
KC2110 E = E-C: IF PEEK ( 1 95 ) = 1 36 THEN 2100 
EP2120 GOSUB 2940: GOTO 2060 

JF2130 IF NOT C THEN R*= " r3BHX«" : GOTO 2040 
AD2140 R*="r2MI53" = GOSUB 550 : U = USR ( PK , 709 , K2 . 7 

10, 248, 711, 116,712, 152.703.K4.DL+22, 13 

0) 
PG 2150 U = ADR ( "HatEI-J CO CJ>D<:CJ CXlf-HCN* CGD CWJBh 

3" ) : U=USR (PK, 5 12, U, 54 286, 192) 
JF2160 POSITION K11,K3:7 #K6: " M BEMMISEBSMMWnBEKS S, 

C3m" : GOSUB 270 
HH2170 7 #K6:7 #K6:7 #K6;"<:3 SPACES? ENTER 

UC3 i-1JiW*l } TO CHANGE OPTION" 
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IH 2180 
60 2190 
NC 2200 
KK 2210 
HG 2220 

PD 2230 

P0 2240 

flD 2250 
BN 2260 

CB 2270 
AA 2280 



C3 aGEa§a> 

TO STAR 



HK 2290 

SN 2300 
EB 2310 

IN 2320 
AB 2330 

BE 2340 

m 2350 

FA 2360 

1G 2370 



DH 2380 
H 2390 



? #K6;"{3 SPACES!! ENTER 

FOR MAIN MENU" 

? #K6;"<3 SPACES} ENTER 

T PRINT" 

? CS$; :U = USR (PK, 656, K0, 657, K12) : 

nMSMBSOBSMMSIM " ; 

R*=" 1234M" :R*(K6)=CHR*(155) :GOSUB 30:? 

CS*j : U=USR (PK, 656, K0, 657, K5) 
CLOSE #K1:7 CS* : U=USR < PK , 656 , K0 , 657 , K5 
):ON R GOTO 2240,2250,2270,2290,740,23 
10 

GOSUB 270:SOUND K0 , 29 , K 1 , K8 : FOR I=K1 
TO K10:NEXT I : SOUND K0 , K0 , K0 , K0 : FOR 1= 
Kl TO 100:NEXT I : GOTO 2200 

MDDEt = CHRt ( 145-ASC (MODE*> ) : ? ," ■J:><:fci 
»rtZM:trt =*■■»*■»" ;CHR*(ASC(M0DE*)+K128) ; "■ 
" ; : GOTO 2230 

? " Ma:H^:a:tlJSU3=*;»rfimiSl ■!!! Y— " ; - R« = 
" 123456789" : GOSUB 30:COL=R 

? CSt; :POKE 656, K0: POKE 657, K9:? "■Hill 
H JSI ! SMS ' M 7 H * '^Ji*" : CHR* (COL+176) ; "■" ; : G 
OTO 2230 

? "■^:>^;a:it]SI'H:»tfiMgi-K3 33ggia; EBBEBB 
■ " ; : R*=" 123456789" : GOSUB 30: PAGES = R 
? CSt;: POKE 656, K0: POKE 657,K9:7 "■jd? 

i*^ri:rsr rHd>^jriM" ; chr$ (pages+176) ; "■" ; -. g 

OTO 2230 

TYPE*=CHR4 < 150-ASC(TYPE*) ) : ? , " WEBB 
■BUJdaa gini" ;CHR*(ASC(TYPE*)+K128) : "■ 
" ; : GOTO 2230 



U=USR (PK, 559, 34, 657, K3) : RS=K1 : GOSUB 29 
40: IF RS THEN RS=K0:GOTO 2600 



POKE 657, K3 

aaoaoBG iar' 

5) : GOSUB 30 



REfiDY PRINTER 



acnaai 

: R*=" 1234M" : R* <K6)=CHR* ( 15 
IF R<K6 THEN 2220 

? CS*;:TRAP 2300: OPEN *K 1 , K8 , K0 , " P : " 

? #K1 ; CHR* (27) ; "O" ; : REM ** RELEASE SKI 

P-OVER PERFORATION 

? #K1 ; CHR* (27) ; "8" ; : REM ** DESELECT PA 

PER OUT DETECTOR 

? #K1 ; CHR* (K18-K3* (MODE$= "C" ) ) ; : REM ** 
SET NORMAL/CONDENSED PRINT 

? #K1 ; CHR* (27) ; " A" : CHR* (K6) ; : REM SET L 

INE SPACING TO 6/72 

POKE 557.K0: IF F* ( K 1 . , K 1 ) < CHR* ( K 1 28 ) TH 

EN FOR I=K1 TO C : X = P ( I ) : F* ( X , X ) =CHR* < A 

SC (F* < X ) ) +K 1 28) : NEXT I 

A*=" " 

D*=" I " : D* ( (EL + K5) *COL ) = " " : D* ( K 3 ) = D* ( 

K 2 ) : D * ( L E N ( D * ) > = " I " 
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FH 2 4 00 

EH 24 10 

AJ 2420 

FF 2430 

M 2440 

FG 2450 

LE 2460 

Lfl 2470 

E6 2480 

KL 2490 

KE 2500 

KA 2510 

BH 2520 

IP 2530 

GP 2540 

All 2550 

KP 2560 

DN 2570 

FE 2580 

LN 2590 

ND 2600 



EE 2610 
LC 2620 
JH 2630 
SS 2640 



X=INT( (E+C+CQL-K1) /COL) :FQR L=K1 TO PA 

GES:GOSUB 3 10:7 #K1;D*:7 #K1;D$ 

IF COL=Kl THEN T= I NT ( ( LEN < D* > -K 1 3 ) / K2 ) 

+ K 1 : D* < T , T i-Ki 2) = "SHOPP ING LIST": ? #K i ; 

D* : D* <T , T+K 1 2) =BL$ : GOTO 2 4 30 

T=INT < (LEN (D*) -26) /K2 ) + K 1 : D* ( T , T + 25 ) = " 

C5 , 3 (Ni! SHOPPING LIST(6 ,>€T>"s? #K1;D 

*:D* (T,T+25)=BL* 

7 #K1;D*:7 #K1;D*: GOSUB 330 

FOR I=K1 TO X:FOR J = K0 TO C0L-K1:K=(I+ 

J*X ) *EL 

R*=" I " : R* <K2> = BL* <K1 , EL) : R* (EL+K2) = " I 

{3 SPACES}": IF K>LEN(F*) THEN 2490 

IF F* (K-Z , K-ZXCHR* (K128) THEN Rt(K2,E 

L + Kl ) = F* (K-Z , K) : GOTO 2490 

I* = F* (K-Z ,K):I$(K1,K1) =CHR$ (fiSC < I * ) -K 1 

28):F0R T=EL TO Kl STEP -KlsIF I*(T,T> 

= " " THEN NEXT T 

I$=I$(K1,T):F=INT( (EL + K6-T) /K2) +K1 : R* ( 

EL+K2,EL+K2)=" " :R$ (F,F+T-K1 ) =It: Rt (K2 

, K3) =" **" : R* (EL + K4) = " * * " 

7 #K1;R*;:NEXT J:7 #K1; 

EXT I : D* (K2, K7) ="NOTES: 

2, K7> =BL$ 

FOR I=K1 TO K9:7 #K1;D*:NEXT I 

10 

7 #K1 ;CHRt (K12) : REM HOME PAPER 

IF TYPE$="C" OR L=PAGES THEN 2550 

POKE 559, 34: U=USR ( PK , 65 6 , K0 , 657 , K3 ) : 7 

" MaMEE Maaasnaa — a h-m-v-i - hm ■!• ■ ■ " ; 

R*=" 1234M" : R* (K6)=CHR* ( 155) : GOSUB 30: I 

F R<K6 THEN 2220 

POKE 559, K0: NEXT L:IF TYPE$="S" THEN 2 

590 

7 #K1 ; CHRt <27) ; " N " ; CHR* (K6) ; : REM ** SE 

T SKIP-OVER PERFORATION 6 LINES 

7 #K1 ; CHR* (27) ; "9" ; : REM SELECT PAPER O 

UT DETECTOR 

7 #K1 ; CHR* (27) ; "2" : REM SET NORMAL LINE 

SPACING 
CLOSE #K1:TRAP CLEAR 

IF F* (Kl , Kl ) >CHR* (K128) THEN FOR I=K1 
TO C: X=P ( I ) : F* (X . X ) =CHR* ( ASC(F* (X ) ) -Kl 
28) : NEXT I 

GRAPHICS K2:P0KE 559, 34: GOTO 740 
IF NOT FS THEN 880 
R*="H^3?;" : GOTO 2040 

DV = K0:R*="SEE" : GOSUB 350: IF RN*= " " TH 
EN 2660 



' I " : GOSUB 330: N 
' : 7 #K1 ; D* : D* (K 



GOSUB 
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31 2650 


POSITION K4 




WBSBCM" s s R*= 




FN*=RN*: OV= 


LI 2660 


POSITION K2 




CDEL LINE>E 




: " ; : INPUT # 


BB 2670 


IF 1*="" TH 


AK 2680 


IF LEN (I*) > 




1 , Kl ) >" Z" T! 


JB 2690 


FN$="D1 : " : Fi 




" . SHP" 


FK 2700 


X=K0:TRAP 2 


AN 2710 


TRAP 2830: I! 




EN (A*) =K17 




2710 


BO 2720 


X = X+VAL (A* (1 




(C*2+E* (EL + 


PN 2730 


POSITION K2 




ENT ROOM ON 


BK 2740 


GET #K5,ANS 


KC 2750 


GOTO 740 


AC 2760 


IF OV = Kl OR 


HJ 2770 


POSITION K2 




{6 SPACES30 




"NY" : GOSUB 


OL 2780 


POSITION K2 




C4 SPACES]-! 


LK 2790 


GOSUB 580: T 




N* 


FH 2800 


P (C + Kl ) = LEN 




KB, K0, FN* 


LB 2810 


FOR I=K1 TO 




TO P ( I+Kl ) 




: NEXT J : NEX 


NF 2820 


CLOSE #Ki:T 




FN*: FS = K1 :R 


FI 2830 


GOSUB 2940: 


GC 2840 


GOSUB 2940: 


IL 2850 


R*="Prar37S" 


LA 2860 


GOSUB 490: I 


SF 2870 


POSITION K3 




" WEEEM" ; ■ R 


II 2880 


GOSUB 30: IF 


HB 2890 


POSITION K2 




C4 SPACES}! 


BH 2900 


GOSUB 580:T 




N*: X IO 33,41 


JE 29 10 


IF FN*=RN* 


m 2920 


GOTO 740 



, K20:? "OK TO SAVE ";RN*;" 
"NY n :GOSUB 30: IF R=K2 THEN 
Kl:GOTO 2700 
,K20:POKE 752, K0: 7 #K4;" 

nter MgHBgEsaai or maasam 

K4,I*:P0KE 752, Kl: 7 

EN 740 

KB OR I* (Kl , Kl ) < "A" OR I*(K 

HEN ? BZ*;:GOTO 2660 

N* (K4) =1*: FN* (LEN (FN*) +K1)= 

830: OPEN #K 1 , K6 , K0 , FN* 

NPUT #K1,A*:TRAP CLEAR: IF L 

THEN X=X+VAL ( A* (K15> ) : GOTO 

Kl , K3) ): CLOSE #K1: IF X>INT( 
Kl ) +K1+124) / 125) THEN 2760 
,K20:7 "{DEL L I NE] I NSUFF I C I 

DISK - HIT 'RET'";BZt; 
: IF ANS0155 THEN 2740 

X=VAL ( A* (K 1 , K3> ) THEN 2780 
,K20:7 "(DEL LINE] 
VERWRITE ";I*-, " WE3BCM " ■ : R* = 
30: IF R = K1 THEN 2660 
,K20:7 "(DEL LINE] 
aSCHIBil **m=m ";FN*; 
RAP 2800: X 10 36 , #K 1 , K0 , K0 , F 

(F*)+K1:TRAP 2840:OPEN #K1, 

C:7 #K1 ; CHR* ( I > : FOR J=P(I) 
-EL STEP EL:7 #K 1 ; F* ( J , J + Z ) 
T I 

RAP CLEAR: X 10 35 , #K 1 , K0 , K0 , 
N*=FN*:GOTO 740 
GOTO 2700 
GOTO 2790 
: GOSUB 350 
F X=155 THEN 740 
,K20:? "OK TO DELETE ";FN$; 
*="NY" 

R=K1 THEN 2860 
, K20: ? " {DEL L INE] 

EraouHiaBaiMa ! ";fn$; 

RAP 2930: XIO 36 , *K 1 , K , K , F 
K 1 , l<0, K0, FN* : TRAP CLEAR 
THEN FS=K0 
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FL 2930 GOSUB 2940: GOTO 2900 

HH 2940 CLOSE #K1: POSITION K3,K21:? BZ*,- "ERROR 
"; PEEK < 195) ; " ENCOUNTERED - RETRY KB 

UM" : 

ME 2950 I=R: R*="NY" : GOSLIB 30: POSITION K2,K21s? 
"(DEL LINE]";: IF R=K2 THEN R=I:RS=K0: 

RETURN 

BE 2960 IF RS THEN RETURN 

HP 2970 POP : GOTO 740 

AH 5000 DATA 104,104,133,217,104,133.216 

EF50 10 DATA 1 04 , 1 33 , 209 , 1 4 , 1 3 3 , 208 , 1 6 9 

EF 5 2 DATA 0,133,213,133,207,162,1 

K 5030 DATA 165,216,133,214,165,217,133 

NK 5040 DATA 215,24,165,214,133,212,101 

BC 5050 DATA 205,133,214,165,215,133,213 

m 5060 DATA 105,0,133,215,164,203,165 

OD 5070 DATA 206,240,10,177,214,209,212 

JA 5080 DATA 144,44,240,12,176,19,177 

HH 5090 DATA 2 14,209,212,144,13,240,2 

OC5100 DATA 176,30,200,196,204,240,227 

IE5110 DATA 176,23,144,223,169,1,133 

PA5120 DATA 218,164,205,136,177,214,72 

BE5130 DATA 177,212,145,214,104,145,212 

EI5140 DATA 192,0,208,241,232,224,0 

LH5150 DATA 208,2,230,207,228,208,208 

DA5160 DATA 172,165,209,197,207,208,166 

IL5170 DATA 165,218,201,0,208,144,96 

AH5180 DATA 104,104,133,215,104,133,214 

BB5190 DATA 104,133,217,104,133,216,104 

m 5200 DATA 133,218,104,170,160,0,177 

W5210 DATA 214,145,216,200,208,4,230 

8K 5220 DATA 215,230,217,202,208,242,198 

H6 5230 DATA 218,16,238,96 

BB 5240 DATA 104,104,133,255,104,133,254 

AO 5250 DATA 104,133,253,104,133,252,104 

OK 5260 DATA 170,24,101,255,133,255,138 

OH 5270 DATA 24,101,253,133,253,104,168 

DA 5280 DATA 177,254,145,252,136,192,255 

DH 5290 DATA 208,247,198,253,198,255,202 

GN 5300 DATA 224,255,208,238,96 

HB5310 DATA 104,74,170,160,0,104,133 

KO 5320 DATA 255,104,133,254,104,240,4 

BI 5330 DATA 200,145,254,136,104,145,254 

KD 5340 DATA 202,208,237,96 
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Coupon File 



Stan Silverman 



"Coupon File" is a practical coupon-sorting program. It 
might even help you save some money. Requires at least 
32K and a disk drive. 

"That's the most ridiculous thing I've ever heard," she said. 
"A computer program to keep track of store coupons? You 
remember the hours we spent trying to use the computer to 
balance our checkbook, don't you? And you expect me to 
think that this will be different?" 

I flinched. She did conjure up images of those endless 
sessions in front of the screen, with the incessant whirring of 
the disk drive in the background, as we tried to use the com- 
puter for a task better done with pencil, paper, and calculator. 

But "Coupon File" is different. It is a practical coupon- 
sorting program, with features that make it extremely useful, 
and we've found it to be a valuable money-saving tool. 

Program Requirements 

Coupon File requires at least 32K of memory and one disk 
drive. That gives it a maximum capacity of 400 coupons. In a 
40K (or 48K) system, the capacity is 600 coupons. The pro- 
gram checks the size of installed memory and adjusts for it 
accordingly. 

Before using the program, you will have to write a ref- 
erence number on each of your coupons. That lets you iden- 
tify the coupons when you want to take them to the store. 
The number has no meaning to the program, but it does check 
to make sure that you don't try to use a number more than 
once. The allowable range of reference numbers allowed is 
0-9999, so you should be able to use the program for many 
years without worrying about running out of numbers. 

Data Entry 

Every time the program needs information from you, it will 
display a rectangle into which your keyboard response will go. 
You will be able to see how much space remains for your use 
in each information field. The information fields that you will 
use are described below. 

Reference Number. Up to four numerals will be accepted. If 
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you don't want to enter all four digits, press RETURN to end 
the entry. 

Description. Up to 17 characters of any kind will be ac- 
cepted. Use RETURN to terminate descriptions less than 17 
characters. 

Amount. Up to four characters, including the decimal 
point (period) will be accepted. Press RETURN to complete 
entries of less than four characters. 

Dates. These entries are in the form of MM/DD/YY. All 
six numerals must be entered. It is not necessary to enter the 
slashes, as the computer will place them in the rectangle for 
you. 

After you have completed each field, you can verify that 
the displayed information is correct by typing a Y. If you 
made an error, entering N will clear out the rectangle and let 
you reenter the information. 

The Menu 

After the program has been initialized and all of the coupon 
data has been loaded from disk, the program will display the 
number of coupons that is on file and the highest reference 
number in use. Next, the menu will be displayed. The pro- 
gram will return to this menu at the end of every operation. 
You may return to the menu at any time by pressing the ESC 
(Escape) key. You don't have to worry about confusing the 
program if you abort an operation with the ESC key. The pro- 
gram performs its operation only upon receiving a final 
verification from you and will not be left in limbo if you 
change your mind about what you are doing. 
The menu will give you these choices: 

1 Add Coupon 

2 Delete Coupon 

3 Sort by Date 

4 Sort by Description 

5 List All Coupons 

6 List Expired Coupons 

7 List by Date Range 

8 List by Description Range 

9 End Session 

Press the number corresponding to the choice you want. 
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Add Coupon, You will be asked to enter a reference num- 
ber, which will be checked to make sure that a coupon of the 
same number has not been filed before. Next, you will be 
asked to enter the description, the amount that the coupon is 
worth, and its expiration date. If the coupon does not have an 
expiration date, simply enter a date like 12/31/99 to indicate 
unlimited validity. After all of the information has been en- 
tered, a facsimile of the coupon is displayed for final verifica- 
tion. If you wish, you can reject the coupon at that point and 
create a new one. 

Delete Coupon. You will be asked to enter the reference 
number of the coupon you wish deleted. If there is no coupon 
on file with that reference number, you will be notified of that 
fact. If the coupon is in the file, a facsimile of it will be dis- 
played. You will be asked for verification before it is deleted 
from the file. 

Sort by Date. This operation (as well as Sort by Descrip- 
tion) is included to make for more useful coupon listings. It is 
not required. No other operation is dependent upon the cou- 
pons being sorted, and the program will give you all the infor- 
mation you ask of it whether or not the date is sorted. 

Unfortunately, the sorts are slow. Sorting 300 coupons 
can take a half-hour. An onscreen notice will inform you that 
the screen will go dark during sorts. This is done to improve 
the sort speed. To wake you up, the built-in speaker will 
sound at the completion of the sort. 

Sort by Description. Of the two sorts, this one is probably 
the most useful. 

List All Coupons. The file of coupons will be listed to the 
screen in the order in which you entered them, unless you 
have subsequently sorted them. When the screen is filled, you 
can either continue the listing or return to the menu. 

List Expired Coupons. You will be asked to enter the cur- 
rent date. The program will then list all expired coupons 
(those with earlier expiration dates) on the screen. Make a 
note of their reference numbers if you wish to delete them 
later. 

List by Date Range. You will be asked to enter a starting 
date and then an ending date. The program will list all cou- 
pons whose dates fall within that range. 

List by Description Range. You will be asked to enter a 
starting description and an ending description. The program 
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will list all coupons whose descriptions fall within that range. 
For example, if you want to list all coupons whose descrip- 
tions begin with C, you should enter C as the starting descrip- 
tion and D as the ending description. Similarly, if you want to 
list all coupons whose descriptions begin with CEREAL, enter 
CEREAL as the starting description and CEREALA as the end- 
ing description. Play with this feature for a few minutes and 
you will quickly learn how to use it. 

End Session. If you have made any additions or deletions 
to the file or if you have sorted the coupons during the ses- 
sion, the disk will be updated to reflect these changes. You 
will be asked not to turn off the computer until the disk has 
stopped. No disk operation will occur if you have only listed 
coupons to the screen. 

File Initialization 

The first time you use Coupon File, it will create a data file 
containing one dummy coupon. You may delete this coupon 
anytime after you have added one of your own. The program 
needs at least one coupon in the file in order to operate 
properly. 

Typing the Program 

In order to provide memory space for as many coupons as 
possible, several memory-saving techniques are used to reduce 
the amount of memory required by the program itself. Tech- 
niques include the use of strings to store most of the numeric 
information, the use of variables for frequently used constants 
and line numbers, and the use of multiple-statement lines. 

To get the most from multiple-statement lines, the 
abbreviations for BASIC'S reserved words are often used to 
pack instructions into the three physical lines allowed for a 
logical program line. This means that as you type in the program 
you may have to use abbreviations for the BASIC keywords as 
well as eliminating spaces wherever possible. For example, if you 
were to see a statement like this 

300 FOR 1 = 1 TO 1000:NEXT LRETURN 

you would type the following: 

300F.I = K1TOK1000:N.I:RET. 

Obviously, for a short line such as this, it would not be nec- 
essary to use abbreviations. For longer lines, however, 
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abbreviations can make a significant difference. Using abbrevi- 
ations will cause us to have to sacrifice the advantages of 
using "The Automatic Proofreader." The checksums for lines 
with abbreviations will not match up. If you use the technique 
described in the Automatic Proofreader article for lines with 
abbreviations, with program lines of more than three physical 
lines, you run the risk of losing the ends of the program lines. 

Coupon File 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

FE 1 READ O, Kl , K2, K3, K4, K5, K6, K7, K8, Kl 1 , K14, Kl 
7,K27,K7S,K89,K100, K 1 000 , K 1 0000 : OPEN #K1 , 
K4, O, "K: " : BOSUB K10000:6OTO K10000*K2 
OS 2 FOR 1=0 TO IC0UNT-K1 : FOR J=I TO IC0UIMT-K1 
: DESBUF*=DES* (VREF ( I ) *K17+K1 ) : IN*=DES$ <VR 
EF < J) *K17 + K1 ) 
Kl 3 IF IN*<DESBUF* THEN A = VREF ( I > : VREF ( I > =VRE 

F< J) : VREF ( J)=A 
LH 4 NEXT J:NEXT I : GOTO 4010 

016 FOR 1=0 TO ICOUNT-K1 : FOR J = I TO ICOUNT-K1 
: DBUF*=DAT* (VREF ( I > KK6+K1 ) : IN$ = DAT$ (VREF ( 
J) *K6+K1 ) 
BE 7 IF IN$<DBUF$ THEN A = VREF ( I ) : VREF ( I ) =VREF ( 

J) : VREF ( J)=A 
LL 8 NEXT J:NEXT I : BOTO 4010 
NF 1 1 FOR J = TO ICOUNT-K1 : IF VAL ( I N« ) =REF ( J ) 

THEN 10470 
AG 12 NEXT J: RETURN 
FL 27 POSITION I-K2,KB:? "■■<B3 ■1" : POS I T I ON I- 

K2,K6:? "■{g}«":RETURN 
DK 100 POKE K7S+K4, K6: GOSUB K10000:? :? :? "1 
";Mlt:? "2 ";M2*:? "3 Sort by Date": 
? "4 Sort by Description" 
AI110 ? "5 List All Coupons":? "6 List Expi 
red Coupons":? "7 " ; M7t : ? "S ";MB*:? 
"9 End Sessi on ": POSITION K7+K6, K8+K8 

db 120 ? " taBBGEBBMBUBlgB " 

KD 130 SET #K1 , A: A = A-K6*K8: IF A<K1 OR A>KB + K1 

THEN 130 
EH 140 BOSUB K10000:POKE K7B + K4,K2:ON A GOTO K 

1000, K2*K 1000, K3*K 1000, K4*K 1000, K5*K 100 

0, K6*K1000, K7*K 1000, K8*K1000, 9000 
BI 200 IN*="":FOR I = ISTART TO K5*K4 
BH201 BOSUB K27:POSITION K 1 1 +K 7 , K 1 : SET «K1,A: 

? A-A;"(BACK S}0": IF A=126 THEN 10230 
HJ 202 IF A=155 THEN FOR L=I TO K5 * K4 : I N* ( L - I S 

TART+K1)=" ":NEXT L:GOTO 210 
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203 I 

204 I 
R 

205 P 
) 

210 G 
220 D 


400 D 

S 
410 G 
1000 



CJ 1050 



KJ 


1060 


KB 


1065 


flE 


1070 


FF 


1090 



CB 1 100 



EH 1 1 1 



m 


1115 


U1 


1 120 


GJ 


1 140 


FH 


1 150 



EB 1 160 



!C 


1 165 


NG 


1 170 


LB 


1 180 


CC 


1 190 


m 


1200 


m 


1205 


HI 


1210 


OA 


1300 



F A=K27 THE 
F RFLAG THE 

(RFLAG=K1 
OSITION I.K 
= CHR* (A) : NE 
OSUB 10020: 
BUF$=" " : FDR 
000+K100: NE 
ESBUFt=DES$ 
* AND DESBU 
OTO 5050 
POSITION Kl 
B K10000+K1 
A) =VAL (IN*) 
GOSUB 1300s 
C3 SPACES} 
GOSUB K100* 
GET #K1 , A: I 
IF A=K27 TH 
IF AOK89 T 
DES$ ( ICOUNT 
SIT I ON K2,K 
K6) ; "■*" ; B 
RFLAG=K2: PO 

WMsazsMzam 

SUB K100*K2 
GET #K1 , As I 
7: ? " 14 SPA 
*K1 1 

IF A=K27 TH 
IF AOK89 T 
RFLAG=0: AHT 
GOSUB 10040 
Is? " UtJ=MJ 
UB 220 
GET #K1 , A: I 
SUB 10040: G 
IF A=K27 TH 
IF AOK89 T 
L=ICOUNT: DA 
T* (L*K6+K3) 
7,K2:? MH: 
GET #K1 , A: I 
OTO K1000 
IF A=K89 TH 
G=Kl:GOTO K 
IF A=K27 TH 
GOTO 1 190 
GOSUB 10040 
L* : ? BLS*: B 
RN 



N GOTO K100 

N IF A<46 OR A>57 OR A=47 O 

AND A=46) THEN 201 

7:? CHR* ( A) : IN* < I-ISTART+K1 

XT I 

RETURN 

I=K11+K2 TO K5*K4: GOSUB Kl 
XT I:GOSUB 10020:RETURN 
( I*K17 + K1 ) : IF DESBUF*> = LODE 
F*<=IN* THEN 5100 

4,K2:7 Ml*:GOSUB 10400:GOSU 
000:GOSUB Kl 1 : A=ICOUNT: REF < 
: VREF < A) =A: GOSUB 10040 
POSITION K6, Kl 1 : ? " 



Please Enter- DescriPtioi 



K2 

F A=K78 THEN 1050 

EN GOTO K100 

HEN 1060 

*K17+K 1 )= IN*: GOSUB 1 0i 

6:? B* (K6) ; BL* (K5*K3> 

*<K14):7 B*<K6);BL*(K 

SIT ION KS + K1,K11:7 

T7EIC4 SPACES] " : ISTART = K17: GO 



1040: PO 
B* ( 
:5*K3) 



F A=K78 THEN POSITION 
CES3": GOSUB 10040: GOT 

EN GOTO K100 

HEN 1110 

*< ICOUNT* K4+K1)=IN* 

: GOSUB 10030: POSITION 



K 1 7 , K 
O K100 



K6, Kl 
: GOS 



F A=K78 THEN GOSUB 10030:GO 

OTO 1150 

EN GOTO K100 

HEN 1 160 

T* (L*K6 + K1 ) =DBUF* (K4 + K1 ) : DA 

= DBUF* (Kl , K4) : POSIT ION K7 + K 

GOSUB 10300 

F A=K78 THEN GOSUB Kl 



EN ICOUNT=ICOUNT+Kl : D 

100 

EN GOTO K100 

: RFLAG=0: POSITION K2, 
*;BLS*:? BL*:ISTART=K 



: G 
ISKFLA 



K6:^ B 
4 : RETU 
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ON 2000 POSITION K7+K6,K2:7 M2*:G0SUB 10400:GO 

SUB K10000+K1000: FOR L=0 TO ICOUNT-K1: 

IF VAL < IN*) OREF <L) THEN NEXT L:GOTO 1 

0500 
OG2010 GOSUB 10040: GOSUB 10300 
HC 2020 GET #K1,A:IF A = K78 THEN GOSUB K10000:G 

OTO K2*K1000 
f 2030 IF A = K27 THEN GOTO K100 
LP 2040 IF A< >K89 THEN 2020 
Jfi 2042 POSITION K6+K7,K7:? "* ESGBOBK3S * " : POS 

IT ION K11,K17:7 B* 
FF 2045 IF L=ICOUNT-Kl THEN 2060 
NK 2050 DES*<L*K17 + K1)=DES*(L*K17 + K1H-K7) : DAT* 

<L*K6+K1)=DAT*<L*K6+K7):AMT*(L*K4+K1)= 

AMT* (L*K4+K5) 
HC 2060 FOR J = L TO I COUNT-K2 : REF ( J ) =REF < J +l< 1 ) : 

NEXT J 
EL 2070 FOR J=0 TO I COUNT-K 1 : I F VREF(J)=L THEN 
FOR K = J TO IC0UNT-K2: VREF <K) =VREF <K+K 

1 ) : NEXT K 
DL 2080 NEXT J : FOR J=0 TO ICOUNT-K2:IF VREF(J) 

>L THEN VREF< J)=VREF (J) -Kl 
JP 2090 NEXT J: I COUNT= I COUNT-K 1 : DISKFLAG = K1 : GO 

TO K100 
PL 3000 GOSUB 3100: GOTO K6 

IW3100 POSITION K3„KB:? "NOTE: Screen is dark 
during Sor t s " : POS I T I ON K8 + K1,K4:? "Pr 

ess G to begin Sort" 
EK3110 GET #K1,A:IF A = K89 THEN POKE 559,0: RET 

URN 
AE3120 POP :GOTO K100 
PI 4000 GOSUB 3100:GOTO K2 
H4010 DISKFLAG=K1 : POKE K11*K7,0:7 "{BELL}":P 

OKE 559, K27+K7: GOTO K100 
DO 5000 PRFLAG = K5 
IB 5010 GOSUB 10050:FOR K = TO I COUNT-K 1 : I = VRE 

F(K) :DBUF*=DAT»<I*K6+K1) 
LP 5020 IF PRFLAG = K8 THEN GOTO K100*K4 
PP 5030 IF PRFLAG = K5 OR (PRFLAG = K6 AND NOW* >DB 

UF*> OR <PRFLAG=K7 AND < DBUF* >=LODA* A 

ND DBUF*<=HIDA*> ) THEN 5100 
ftL 5050 NEXT K:GOSUB 10060:GOSUB 10075: GOTO Kl 

00 
AP5100 POSITION K2,J:? REF ( I ) : POS I T I ON K7,J:? 
DES* (I*K17+K1 , I*K17 + K17) :POSITION K27 

-K2. J 
IH5110 ? DBUF* (K3, K4) ;"/": DBUF* (K5) ;"/"; DBUF* 
(K1,K2) ; " ";AMT*(I*K4+K1, I*K4+K4) :J=J+ 

Kl 
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IN 5120 

KII5130 
FF 6000 



IH 6010 

HE 6020 
AG 6030 

6P 7000 



DC 7010 

HD 7020 
HH 7030 
DE 7040 
FH 7050 

EL 7060 

m 7070 



IF J = K27-K6 THEN GOSUB 10070: GOSUB K10 
000:GOSUB 10050 
GOTO 5050 

PRFLAG=K6: GOSUB 1 0030 : POS I T I ON K8,K11: 

3": GOSUB 22 



Please Enter Toda; 





GET #K1«A:IF A=K78 THEN GOSUB K10000:G 

OTO K6*K1000 

IF AOK89 THEN 6010 

N0W*=DBUF*<K5) : NOW$ (K3) =DBUF$: GOSUB Kl 

0000:GOTO 5010 

POSITION K11.K2:? M7*:G0SUB 10030:POSI 

TION K7„K11:? " IJI^H^^.V<J J =t 35 Hil BOBE M 

EES3S":GOSUB 10160:GOSUB 220 

GET #K1,A:IF A=K7S THEN GOSUB 10030: GO 

SUB 10040:GOTO K7HK1000 

IF A=K27 THEN GOTO K100 

IF AOK89 THEN 7010 

L0DA*=DBUF*<K5>:L0DA*<K3)=DBUF* 

GOSUB 10030:GOSUB 1 0040 : POS I T I ON 20, Kl 

1:7 " IJi t! HAB^V^ {5 SPACES} ": GOSUB 220 

GET #Kl,AsIF A=K78 THEN GOSUB 10030: GO 

SUB 10040-.GOTO 7050 

IF A=K27 THEN GOTO K100 



NB 7080 
AB 7090 

AP 8000 



NH 8010 
HP 8020 
HJ 8030 
FP 8040 
OD 8050 

LH 8060 
NE 8070 
ND 8080 
HH 8090 
HC 9000 
OF 9005 



KJ 9 10 



GE 901! 



IF A< 
HIDA* 
= K7: G 
POSIT 
ON K2 

GET # 
IF A = 
IF A < 
LODES 
GOSUB 
[3J5 
GET # 
IF A = 
IF A< 
PRFLA 
CLOSE 
"7 • *? 

St Dp S 

■f . " : O 
FOR J 
EF < I ) 
#K2; 
? #K2 



>K89 
= DBU 
OSUB 
ION 
,K1 1 

K 1 , A 
K27 
>K89 
*=IN 
130 

Kl . A 
K27 
>K89 
G = K8 
#K1 



PEN 
= T 
: ? # 
DAT* 
; AMT 



THEN 
F* (K5) 

K1000 
K7, K2: 



: GOSUB 

: IF A = 

THEN G 

THEN 

0: POS I 

: IF A = 
THEN G 

THEN 
: GOSUB 
: IF DI 
PI ease 
"befor 
#K2, K8 
O ICOU 
K2; DES 
( I *K6+ 
* < I*K4 



7060 

: HIDA* (K3) =DBUF$: PRFLAG 

0:GOTO 5010 

? M8*:GOSUB 1300:POSITI 

[=i^T^t=M r=fnLT?BBE^3?n &.JhFit yMTT^3^ 

K100*K2 
K78 THEN GOTO K8JK1000 
OTO K100 
8010 

TION Kl 1+K4, Kl 1 : 7 " Mi ff H 

": GOSUB K100*K2 
K78 THEN 8050 
OTO K100 
8060 

K10000:GOTO 5010 
SKFLAG=0 THEN 9020 

wait until Disk Drive 
e turning the system o-f 
, O, "D: DAT" : ? »K2; ICOUNT 
NT-K1 : I=VREF < J ) : ? #K2;R 
* ( I *K17 + K1 , I *K17 + K17) : 7 
Kl, I *K6+K6) 
+K1 , I *K4+K4> : NEXT J 



189 



Chapter 4 



HE 9020 C 
s 
HH 10000 



ID 10010 
NL 10020 
KB 10030 



AL 10040 
JP 10050 



HD 10060 

HA 10070 

AS 10075 

GH 10080 

AD 10085 

Cfl 10090 

IE 10100 

FF 10105 

PO 10107 

HP 10110 

EC 10120 

CA 10130 

BO 10135 

HN 10140 

II 10150 

JE 10160 

JG 10230 

OJ 10240 

CH 10250 

AJ 10300 

LP 10305 



PB 10310 



LOSE #K2:GRAPHICS 0:CLR :? :7 :7 "If 

O.K. to shut down now. ":END 
GRAPHICS OsPOKE K8 + K8 , KB *K8 : POKE 5377 
4 , K8*K8: POKE 709 , K7 *K4 : POKE 710,K11+K 
7: POKE 752, Kl: POKE 7 1 2 , K7 + K 1 1 : POS I T I 
N K 1 4 , K 1 

? "COUPON FILE":RETURN 
POSITION K6*K4,K7:7 COR*:RETURN 
POSITION K11,K6: 7 BL$ (KB+K2) : POSITION 

K11.K7:? BLSt; D*; BLS*: POSITION K11,K 
8:7 BL* <K8+K2> : RETURN 

POSITION K6*K4,K7:7 B* < K4 >: RETURN 
J = K4:? :? "I33tJICB> C3 *1 JiTiJaki J \>1 J^4 aBBBH 

Hr<:3 a J:w=*^ 3 (B] raPTTyraaaiCBirrrgJi" : retur 

n 

position k6+k7.j:? 

RETURN 

GOSUB 10160 

POSITION K6,K11*K2:7 "Press 

to Continue" 
GET #K1,A:IF A=K8*K4 THEN RETURN 
IF A=K27 THEN GOTO K 1 00 
GOTO 10080 

IF I=K11+K4 OR I=K11+K7 THEN I=I+K1 
GOSUB K27:GET #K1,A:IF A=126 THEN 101 
30 

IF A=K27 THEN GOTO K100 
IF A<K8*K6 OR A>57 THEN 10105 
POSITION I,K7:7 CHRt ( A ) : DBUF* ( LEN ( DBU 
F*> +K1 ) =CHR* < A) :RETURN 
IF I=K11+K2 THEN I = I -K 1 : RETURN 
IF I=K14 THEN DBUF*= " " : GOTO 10150 
DBUF*=DBUF* (Kl, LEN <DBUF*> -Kl ) : IF I=K8 
+K8 OR I=K11+K8 THEN I=I-K1 
1=1 -K 1 : POSITION I,K7:7 " ":GOTO K1000 
0+K100 

POSITION K6.K27-K4:? MESC* ;: RETURN 
IF LEN(IN*)<K2 THEN I N*= " " : I = I ST ART : G 
OTO 10250 

LEN < IN*) -Kl ) 



~ 



1=1 -Kl : IN*=IN$ (Kl 

POSITION I,K7:7 " " : GOTO 

GOSUB K10000:POKE K78+K4. 

K 7 , K 6 

? "{QJ123 RICE}":? MT$:? " 

{6 SPACESiRef. # ";REF<L>: 

7+K4, KB: 7 " I " 

7 MT$:? " I " ; DES* <L*K17 + K1 , 

" *" ; AMT* (L*K4 + K1 , L*K4 + K4) 

A=L*K6+K6 



201 

K7: POSITION 



I 
POSITION K2 

L*K17+K17) ; 
; " I " : 7 MT$: 
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GG 10320 



NL 10330 



IP 10400 



PN 104 10 



PA 10420 

PO 10440 

CG 10450 

NL 10460 

CO 10470 



LH 10500 

IP 1 1000 
DL 20000 

SC 20010 

IL 20020 

H(1 20030 

IK 20050 

m 20060 

EG 20070 



7 " I C 3 S P ACES 3 Expires 
2) ; " /" ; DAT* < A-Kl , A) ; " / 
4) ; " C4 SPACES! I 
? " {. Z J 1 23 R 3 ■ C C 3 
K17: 



' ; DAT* (A-K3, A-K 

11 ; DAT* ( A-K5, A-K 
7 MT* 

POKE K78+K4 , K2: POSIT 

COR*:GOSUB 10160:RET 



ION Kii+K 

URN 

POSITION K11+K4,K6:7 BL* < K 1 4 ) : POS I T I O 

N K11+K4.K7:? BLS* ; B* < K 1 4 ) ; BLS* : POS I T 

ION K11+K4,K8:7 BL*(K14) 

POSITION K2,K11:7 "C4 RPftCES} IJl^»J5 

Bgaa i B aBHEHHaE! 333 S ":GOSUB 10160: 

ISTART=K17: RFLAG=K1 : GOSUB K100*K2 

GET »K1,A: IF A=K7S THEN GOSUB 10040:G 

OTO 10400 

IF A=K27 THEN GOTO K100 

IF A< >K89 THEN 10420 

RETURN 

GOSUB 10040: POSITION K2,K11:7 " fMSSSMS 

Md^:^:tri^»:HJ=[=^:»:f:V-«i ; ^=<:MiJ.-l=<>r ' : FOR J = 

O TO K10000/K27: NEXT J : POP : GOTO K100 



GOSUB 



10040: POSIT ION K6. 



UMBER IS HOT IN THE FIL 



Kll:? " HihfcM: 
:FOR 1=0 TO 
K10000/K27: NEXT I : GOTO K2*K1000 
POSITION K6*K4,K7:7 "Please Wait...": 
RETURN 

DIM DESBUF*(K17) , LODES* <K 17), MT* <K5*K 
5) , IN* <K17) : C = PEEK (K100 + K6) *K5*K5/K4- 
K4*K100 

DIM REF<C-K1) , VREF (C-Kl > ,DES*(C*K17) , 
DAT* <C*K6) , AMT* (C*K4) , BL* (K17 + K4) , BLS 
*<K2) , D* (K8> , COR* (K 14) , DBUF* <K6) 
DIM B* (K17) , NOW* (K6) , MESC* (K27) , Ml* (K 
5 + K5) , M2* (K6 + K7) , M7* <K1 7 + K1 ) , M8* (K5*K 
5) , LODA* <K6) , HIDA* <K6> ,AMTBUF*<K4) 
MT*=" SC23 SPACES] !": MESC*="Press f^Ti= t 
o Return to Menu ": M 1 *=" Add Coupon":M2 
*="Delete Coupon" 

M7*="List by Date Range" :MB*=" List by 
Description Range":D*=" / / ":BL* 
= "{21 3333^3- " : BLS* = BL* 

COR*="CORRECT? < Y / N ) " : B* = " <. 1 7 SPACES}" 
: TRAP 2 1000: OPEN #K2 , K4 . O , " D : DAT " : TRA 
P K10000*K4 
INPUT SK2; I COUNT: FOR 
: INPUT #K2; A, DESBUF* 
EF ( I ) =1 : REF ( I ) =A: IF 
F = A 



1=0 TO ICOUNT-K1 

DBUF*,AMTBUF*:VR 

A>HIREF THEN HIRE 



191 



Chapter 4 



QD 20080 DES* < I *K17+K1 ) =DESBUF$: DAT* ( I *K6+K1 ) = 
DBUF*:AMT*<I*K4+K1)=AMTBUF*:NEXT I 

U 20090 CLOSE #K2:P0SITI0N K6,KB:? "The highe 
st Reference Number " : PDS I T I ON K11+K2, 
KB + K1:? "used is " ; H I REF ; " . " : POS I T I ON 
K6, K6 

FB 20100 ? "There are "; ICOUNT; " Coupons filed 
.":GOSUB 10075: GOTO K100 

BN 21000 CLOSE #K2:IF PEEK ( 1 95 ) <> 1 70 THEN RUN 

IA21010 OPEN #K2, KB, O, " D : DAT" : ? #K2;K1:? #K2; 
Kis? *K2; "SEVENTEEN LETTERS":? #K2;"9 
91231":? #K2; "9. 99" : CLOSE #K2:RUN 

1130000 DATA 0,1,2,3,4,5,6,7,8,11,14,17,27,78 
,89, 100, 1000, 10000 
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Investment Tracker 

John L. Nuss 



If you invest in the stock market, this program will help you 
follow the progress of your portfolio. It also demonstrates 
some techniques for using Atari's "Return Key Mode." 

"Investment Tracker" was designed to help investors follow 
the stock market and to quickly determine the overall value of 
a portfolio. Many investors sit down with their Sunday papers 
and review the performance of their stock portfolio, and I 
wrote this program to facilitate that process. 

After current stock prices are entered, it will compute the 
market value of each holding, the gain or loss on each invest- 
ment, and the dividend yield if applicable. That information is 
summarized for the entire portfolio, and provision is made to 
review the details of each holding as well as to consolidate 
multiple holdings of a given stock. Then all that has to be 
done is to sit back while the computer calculates and displays 
the results. 

By using Atari's well-documented dynamic keyboard fea- 
ture, I've made it easy for users to update their portfolios and 
enter the current prices. It is possible to get information di- 
rectly from the screen without input prompts for every data 
field. A screen is displayed with columns for each field and a 
row for each holding or stock. Information already in the 
DATA statement files is appropriately displayed, and the user 
is free to edit as needed (for instance, to update current stock 
prices). 

New entries are added by positioning the cursor at the 
next blank line on the screen and typing in the appropriate 
information in each column field. Entries may also be deleted, 
and a routine is available to keep the files sorted in alphabeti- 
cal order. Suitable menus and prompts are included to make 
the procedures self-explanatory. 

Two DATA Files 

Two separate DATA statement files are used. The first stores 
the portfolio data and has fields for the stock name, the pur- 
chase price, and the acquisition data of each holding. The sec- 
ond contains the latest price and dividend information and the 
date the information was current. 
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It might seem unnecessarily complicated to have two files, 
since the current dividend and price for each stock could just 
as easily have been included in the portfolio file. However, 
using separate files makes it easier to handle situations in 
which the portfolio contains several separate holdings of a 
single stock. That way, the current price needs to be entered 
only once for each stock in order for the program to have data 
to calculate the value of each individual holding. 

Subroutines have been included for dollar and cents 
formatting and to convert fractional stock prices to decimal 
values with which the computer can work. The program will 
handle up to 98 holdings of as many as 98 individual stocks. 

Using the Program 

While program operation should be self-explanatory, some de- 
tailed explanations may still be helpful. 

After loading and running the program you will be asked 
to type in the current date. The program expects six digits, so 
preface single-digit months and dates with zero. The date you 
enter should correspond to the date of the price quotations 
you will be using to update the current price and dividend 
records. If you make a mistake while typing in the date, just 
type any nonnumerical key to start over. 

After entering the date, you will be presented with the 
main program menu. If this is your initial run, you will first 
want to enter your portfolio data. Type 1 to go to the REVISE 
PORTFOLIO routine. 

The portfolio holdings screen and its command menu will 
be drawn on the screen. You should type an A to begin enter- 
ing your holdings. The cursor will go to the first open line on 
the screen, where you can enter the name of the stock, the 
number of shares that make up the holding, the purchase 
price per share, and the acquisition date. Use the TAB key to 
move from one column to the next. You may ignore the RE or 
Reference Number field at this point. It will be filled automati- 
cally and is used by the program if a record must be edited or 
deleted. 

You have 13 spaces for the name of the stock. If this is 
not room enough to type the full names of some companies, 
use the same abbreviations that appear in the newspaper 
financial pages. You may shift to lowercase letters where 
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needed. An alternative would be to use the trading symbol 
abbreviation for the stock. 

Type the number of shares making up the holding in the 
SHRS field. The purchase price may be entered as a fraction 
(for example, 35 1/8) or as a decimal value, whichever way 
the stock or mutual fund is normally quoted. There is not 
much space left for the acquisition date, so you must enter it 
as six unseparated digits. 

The tab stops have been programmed so you can tab from 
one field to the next without having to resort to the cursor 
control keys. If you should, however, happen to space over 
and consequently erase one of the vertical lines separating the 
fields, don't worry. They're there only for cosmetic purposes. 

If you make a mistake, use the cursor keys to correct it. 
Then, when you're satisfied with your entry, hit the RETURN 
key and the program will create a DATA statement containing 
the information you have just entered. The lower six lines of 
the screen will flash as the Return Key Mode is utilized to 
read the DATA statement into the program. The upper portion 
of the screen containing your portfolio information will be un- 
affected except for the insertion of a reference number. 

Continue in this manner until all of your stock holdings 
have been entered. Remember, if you have more than one 
holding of a stock, a record must be entered for each purchase 
so that separate gains or losses can be calculated. 

Sorting Your Stocks 

A simple bubble sort routine, which puts the portfolio in 
alphabetical order, can be accessed from the main menu. The 
sort routine will blank the screen to cut processing time; then, 
when the menu returns, the sort is complete. The stocks will 
show up sorted as you requested the next time you look at 
your portfolio. Actually, this routine is rather slow, so I recom- 
mend that you attempt to enter your initial portfolio infor- 
mation in alphabetical order and rely on the sort routine only 
to put new holdings in order when you add them later on. 

Should you find that you have made any mistakes, they 
can be fixed by typing E to access the editing function. That 
allows you to move the cursor to the offending field, correct it, 
and rewrite the DATA statement with a press of the RETURN 
key. You can also delete a holding (after a sale, for instance) 
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by typing D. The program will ask for the reference number of 
the holding to be deleted. All you need do is type in the num- 
ber and hit RETURN. Finally, when your portfolio information 
is up-to-date, type R to return to the main menu. 

Current Prices 

The next step is to enter or update the current prices. Type 2 
to call up this routine. This price update routine works exactly 
as the portfolio revision does, except that you are supplying 
information for each stock and not each individual holding. 
Type A to enter new stocks to the file. 

The fields to be filled for each stock record are the stock 
name, which must be entered in the identical manner which it 
appears in the portfolio file; the current price; the current an- 
nual dividend; and the date this information was obtained. The 
date field for any record you add or update will be automati- 
cally updated to the date you entered when the run commenced. 

Enter the stock name, price, and dividend just as you did 
the portfolio holding information. You will have to enter data 
for each unique stock you own, but you do not have to enter 
the data more than once if you hold more than one block of a 
particular stock. Corrections and/or price and dividend 
changes are made by typing U for the update routine. This 
routine functions almost like the edit routine, except that after 
each change is recorded (by hitting RETURN) the cursor will 
move to the next stock to permit you to continue to update 
prices. Respond with a Y or N when the program asks if you 
have more to update. 

The D and R routines function as previously described. 
Both the portfolio file and the price file update routines will 
allow you to continue entering data on a new screen, should 
you be unable to find enough room on the initial one. 

Evaluation 

Once all of the relevant data has been loaded into the pro- 
gram, you may proceed with computing and summarizing the 
value and gain of your stock holdings. You have two routines 
to choose from. Return to the main menu and type 3 for a 
summary of the entire portfolio status. The program will dis- 
play each holding on the screen, along with its current value, 
gain (or loss), and the total annual dividend. The overall totals 
for the portfolio will be accumulated at the bottom of the 
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screen. If your portfolio won't fit on the screen, you can re- 
View the first portion of it and then continue the listing on a 
new screen. The totals at the bottom will include only the 
holdings already listed, so you must list all of the portfolio to 
see the grand total. 

Your other option is selection number 4, which will allow 
you to review all of your holdings of a specific stock in more 
detail. If you type 4, a list of your stocks will appear on the 
screen, and you will be prompted to type S to select a stock. 
Any other response will return you to the main menu. 

Having entered an S, you will be prompted to type in the 
name of the stock you want to review. Do so and hit RE- 
TURN. Be sure to type in the name exactly as it was entered 
in your data field, being careful to use lowercase characters if 
applicable. (Actually, you needn't enter the entire name, just 
the first unique character string. If the only stock you own that 
begins with an A is Allied Corporation, then an A plus RE- 
TURN will suffice. If you also own ATT then you must type 
in at least Al to look at the Allied.) 

The program will then compile all of the information it 
has for that stock and display it on the screen. The particulars 
on each holding will appear, with room for up to three hold- 
ings on the screen at once. If you have more than three blocks 
of a stock, you will be told that there is more to see. You can 
continue to review the holdings of that stock three blocks at a 
time. 

The information displayed will include the name of the 
stock, its current price and dividend, and (for each holding) 
the number of shares, their purchase price, the current value, 
gain or loss, and dividend. At the bottom of the screen will be 
total value, dividend, and gain or loss for all of the holdings 
listed so far, plus the dividend yield for the stock. 

Your other main menu options are the file sorting 
routines, a routine to save the program along with the latest 
data, and a routine to delete all of the data should you want 
to start over or begin another file for a separate portfolio. 

This is a lengthy program, but it is well worth the effort 
to type it in. I'm sure you'll find it useful if you're a stock 
market investor and haven't yet purchased a more sophisti- 
cated commercial stock-tracking program. 
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Saving the File 

The program uses DATA statements to store the data. When 
you select the SAVE option, the program will save out the 
whole program to tape. If you prefer to save to a disk, change 
the following few lines: 

6000 REM SAVE DATA ON DISK 

6060 REM 

6070 REM 

6080 REM 

6100 SAVE "D:TRACKER":END 

6110 PRINT "CANNOT SAVE DATA": STOP 

6120 REM 

The program will be saved with the filename TRACKER. 

Save a backup copy of the program just in case the worst 
happens. 

Investment Tracker 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

ND 50 REM *** Stock Portfolio Tracker *** 

NK 110 BOSUB 8000 

IN 120 GOTO 1000 

PN 200 REM -CLEAR SCREEN ?< WRITE TITLE 

KN210 ? " {CLEAR} " : SETCOLOR 2 , 1 1 , : SETCOLOR 4, 

li,0:POKE 752,1: TRAP 1000 

KB 220 POSITION 5,0:? T I TLE* ; CDATEt ( 1 , 2 ) ; SL* : C 

DATE* (3,4) ;SL*;CDATE* (5,6) 

HL 290 RETURN 

NL 300 REM -FORCED READ PART 1 

EE310 POSITION 0,19:? CBS* 

OK 320 POSITION 0,19:RETURN 

OB 350 REM -FORCED READ PART 2 

FA 360 ? "CONT" 

HE 370 POSITION 0,18 

HI 380 POKE B42,13:ST0P 

Gft 390 POKE 842,12:GOSUB 310:RETURN 

PP 400 REM -INTERPRET PRICE STRINGS 

AC 410 REM -CONVERT FRACTIONS TO DECIMAL 

BA 420 FOR 1 = 1 TO LEN(PRC$) 

AG 4 30 IF PRC* ( I , I ) =SL* THEN 450 

CP 440 NEXT I: GOTO 4S0 

PG 450 PRC = VAL<PRC*(I-1, 1-1) >/VAL<PRC*(I+l, I + 1 

) ) 

BF 460 IF I >=3 THEN PRC = PRC + V AL ( PRC* ( 1 , I - 3 ) ) 

HB 470 GOTO 490 

PL 480 PRC = VAL <PRC* ) 
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HG 490 I=LEN (PRC*) : RETURN 

HN 500 REM -DOLLAR AND CENTS FORMAT 

DN510 IF ABS ( AMT) >=1 "T'WR THEN AMT* = ST R* ( AMT > 

: RETURN 
CJ 520 ftMT4= " " : AMTt ( 1 , PWR + 3) =BL$ : AMT$ ( PWR+ 1 , PW 

R+1)=".":B=PWR+1-LEN(STR*(INT(AMT) ) > + ( A 

MT<0) 
HN 530 IF AMT<0 THEN AMT = - AMT : AMT* ( B- 1 , B- 1 ) = " - 



CA 540 


AMT* (B, PWR ) = 


STR* < INT 


HJ 550 


AMT* (PWR+1, PWR+3 )=ST 




< AMT) ) * 1 00 + 


. 5) ) : AMT 


CN 560 


IF VAL<AMT*) 


<0 THEN 


HM 570 


RETURN 




FC 600 


REM -DATA FOR DATE. 




AND STOCKS 




U 6 10 


DATA 000000, 


0, 


BK 700 


REM -HOLDINGS DATA 


II 799 


DATA L= 




DG 800 


REM -PRICE DATA 


IJ 899 


DATA L3 




IB 900 


REM -CLEAR TAB STOPS 


Jt: 9 1 


7 " (CLEfiR) " 




OL 940 


FOR 1=1 TO 6 


:7 "(TAB 


HO 950 


RETURN 




CH 1000 


REM -MAIN MENU 


NE 1010 


GOSUB 200 




BN 1020 


POSITION 3, 


3:7 "PLE 


HI 1030 


POSITION 6, 


6:7 "1 - 


HJ 1040 


POSITION 6, 


8:7 "2 - 


BD 1050 


POSITION 6, 
10 VALUE" 


10:7 "3 


LB 1060 


POSITION 6, 
STOCKS" 


12:7 "4 


IF 1070 


POSITION 6, 


14:7 "5 


FL 1080 


POSITION 6, 
DATA" 


16:7 "6 


LF 1090 


POSITION 6, 


18:7 "7 


HH 1 120 


GET #2,R 




NN 1 130 


IF R<49 OR 


R>55 THE 


OC 114 


ON VAL(CHR*<R>) GOT 




0,7400,6000,7000 


HL 1300 


REM -ELIMINATE COMM 


PB 1310 


FOR 1=1 TO 


LEN < IN*) 


PC 1320 


IF IN* ( I , I ) 


=" , " THE 


EP 1330 


NEXT I 




KI 1340 


RETURN 




IM 1390 


POP :GOTO RN+200 


DE 14 00 


REM -ADD TO 


PORTFOL 



(AMT ) ) 

R*< 100+INT< (AMT- I NT 
* (PWR+1 , PWR+1 )="." 
AMT=-AMT 

NUMBER OF HOLDINGS 



> (CLR TAB} " ; : NEXT I 



ASE SELECT ONE: " 
REVISE PORTFOLIO" 
UPDATE PRICES" 

- SUMMARIZE PORTFOL 

- REVIEW INDIVIDUAL 

- SORT DATA" 

- SAVE PROGRAM AND 

- ERASE DATA" 

N 112 

O 5 0,2000,3000,40 

AS FROM DATA 

N IN* ( I , I ) = "H" 



IO 



OR PRICE FILE 
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MI 14 10 



MN 


14 15 


HI 


1420 


HI 


1430 


LI 


1440 


(10 


1450 


HJ 


1460 


m 


1470 


MI 


1490 


EB 


1500 


FN 


1510 


AG 


2000 


CM 


2010 


BL 


2015 


N6 


2020 


PP 


2030 


CA 


2040 


W 


2050 


CA 


2060 


EA 


2070 


ML 


2 100 


AD 


2110 


HP 


2120 


FK 


2130 


EC 


2140 


GP 


2150 


EG 


2160 


EH 


2170 


DI 


2180 


MI 


2190 


KP 


2200 


JG 


2210 


CP 


2220 


DD 


2230 


m 


2240 


KI 


2250 


EM 


2260 


IA 


2290 


0J 


2300 


AM 2 3 1 



IF CNT=1 
TO RN+20 
IF CNT=13 THEN 
POSITION 1,19: 
POSITION 3,18: 
DATA IN EACH{ 

s ■amnaai" 

POKE 752,0 



THEN CNT=0: SCR=SCR+ 1 : POP : GO 



POP :GOTO RN+100 

> CBS* 

' "ENTER THE APPROPRIATE 

> SPACES? COLUMN AND PRES 



CIMT + 4 : 



1 : GOSUB 1310 



CNT + 3 



ITM 



POSITION 
TRAP 1390 

INPUT #l,IN*:POKE 71 
RETURN 

CNT=CNT-H: ITM=ITM+1 
POSITION 1+(ITM<10>, 
GOTO RN+200 

REM -PRICES AND DIVIDENDS 
SCR=1 : CNT=0: ITM=0: RESTORE 800 
GOSUB 910:? " € 4 SPACES} {SET TAB] 

> (SET TABXB SPACES} {SET 

{SET TAB}" 



{14 SPACES 
{6 SPACES} 
GOSUB 200 
POSITION 
POSITION 
{4 SPACES} 
POSITION 
{5 M } I { 6 M 
FOR 1=1 TO 
T I 

POSITION 
IF CNT=13 
READ STK*: 
CNT=CNT+1 : 



tab: 



I c 



? DL$ 

? " { V } R E I { 4 

PRICE I DIVNDI 

3:7 " { V } { 2 M ] I 

{ B }• " 

13: POSITION 0. 



SPACES} STOCK 



DATE 
{13 M : 

I + 3 : ? 



:b>' 

r -7 



M> I 



PR* : NEX 



,17:7 UL$ 
THEN 2200 
IF STK*="H' 
ITM=ITM+1 



THEN 



DV$, CD* 

1+ < ITM< 10) , CNT + : 
4, CNT+3:? STK* 
18,CNT+3:? CP* 
26,CNT+3:? DV* 
32, CNT+3: ? CD* 



READ CP* 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
GOTO 2100 

POSITION 1,18:7 CBS*: 
? "{3 SPACES} ENTER AN 
ROCEED: " 
? "{6 SPACES} A 
? "{6 SPACES} D 
7 "{6 SPACES} U 
7 "{6 SPACES} R 
CNT=13 AND 



'200 



ITM 



CONTINUE LISTING"; 



IF 

ION 6,23: 

GET #2,R 

IF R=65 OR R=97 THEN 2370 

IF R=68 OR R=100 THEN 2710 



INSTRUCTION TO P 



- ADD A NEW STOCK" 

- DELETE A STOCK" 

- UPDATE INFORMATION" 

- RETURN TO MAIN MENU" 
NUMS>13* (SCR) THEN POSIT 
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BD 2320 


IF R=85 OR R=117 


AH 2330 


IF R=82 OR R=114 


PN 2340 


IF R=67 OR R = 99 T 


NA 2350 


GOTO 2290 


OL 2370 


RN=2000: GOSUB 141 


ID 2470 


STK*=IN$ (1, 13) :CP 




23, 27) :CD*=IN*(29 


OF 2480 


GOSUB 310:? "CDOW 




; CM*; CP*; CM*; DV*; 


CP 2490 


NUMS=NUMS+1 : GOTO 


HJ 2520 


POSITION 1,18:? C 


JJ 2530 


POSITION 3,19:? " 




BE UPDATED, C3 S 




D PRESS ■:J=*ilJ:J:»" 


JO 2540 


POKE 752,0:POSITI 




390 


BS 2550 


INPUT #l,IN*:GOSU 


00 2580 


RE = VAL < IN* (2, 3) ) : 




* ( 19, 25) : DV*=IN* ( 


DI 2590 


GOSUB 310:? "(DOW 




*;CP*;CM*;DV*;CM* 


FL 2595 


POSITION 32,RE+3- 


HO 2600 


POSITION 1,22:? " 


HO 2630 


GET *2,R 


KL 2640 


IF R = 78 OR R= 1 10 




2200 


US 2650 


IF R<>89 AND R<>1 


HH 2655 


IF RE/ 13=INT (RE/1 




1410 


FN 2660 


POSITION 1,22:? " 


BE 2670 


POSITION 0,RE+4-l 




{LEFT} " ; 


NF 2680 


GOTO 2550 


DN 2700 


REM -DELETE STOCK 


HK 27 10 


POSITION 1,18:? C 


LK 2720 


POSITION 3,19:? " 




R OF INFO TO BE D 




■" :POKE 752,0 


EL 2730 


INPUT RE: POKE 752 




F RE=NUMS THEN 27 


BF 2740 


FOR I=RE TO NUMS- 


KE 2750 


READ STK*,CP*,DV* 


OJ 2760 


GOSUB 310:? "(DOW 




;CP*;CM*;DV*;CM*; 


FI 2770 


NEXT I 


FD 2780 


GOSUB 310: ? " {DOW 



NUMS=NUMS-l:GOTO 


CJ 2790 


MA 3000 


REM -PORTFOLIO SU 


AE 3010 


SCR=0: ITM=0:CNT=0 



THEN 2520 
THEN 1010 
HEN RN=2000:GOTO 1410 



*=IN*(15,21) :DV*=IN*< 

, 34) 

NJ";800+ITM+1;D*;STK* 

CM*; CD*: GOSUB 360 

1490 

BS* 

MOVE CURSOR TO LINE T 

PACES3MAKE CHANGES AN 



ON 0,18:? 



; : TRAP 1 



B 13 10 

STK*=IN*<5, 17) :CP*=IN 

27, 31) :CD*=CDATE* 

N} " ; 800 +RE; D* ; STK*; CM 

;CD*:GOSUB 360 

13*<SCR-1):? CDATE*; 

MORE TO UPDATE?"; 

THEN POKE 752,1: GOTO 

21 THEN 2630 

3) THEN RN=2000: GOSUB 



{DEL LINE}" 
3* (SCR-1 ) : ? 



{V}- 



INFO 
BS* 

ENTER REFERENCE NUMBE 
ELETED, PRESS ■3MHI3I 

,l:RESTORE 300+RE+l: I 

80 

1 

, CD* 

N}" ;S00+I;D*;STK*;CM* 

CD*: GOSUB 360 

N5 " ; 800+NUMS: GOSUB 36 

20 10 

MMARY 

: TV=0: NG=0: DV=0 
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NH 3020 
fiB 3030 
JA 3040 



NA 3050 

NA 3060 

AB 3070 

EC 3080 

IE 3090 

HD 3100 

W. 3 1 1 

BH 3120 

GH 3130 

IE 3140 

PN 3150 

GC 3155 

OJ 31 60 

IB 3170 

GG 3 180 

JG 3 190 
GD 3200 
NH 3210 



JA 
DH 
OK 
JD 
U 
HL 
ML 
PK 



GDSUB 200 
POSITION 1 
POSITION 1 
(3 SPACES} 
{ B J " 

POSITION 1 
{7 M> € B y " 
FOR 1=4 TO 
I 

POSITION 1 
t { 7 M } < B > " 
POSITION 1 
POSITION 8 
POSITION 1 



? OL* 

? "<v: 

VALUE 



(3 SPACES> 
INET GAINI 



STOCK 
DIVND 



{ V y i 1 1 M> I {8 M > I C 8 M 3 I 



19:P0SITI0N 1.1:7 SR*:NEXT 



3220 
J 2 30 

3240 
;250 
:260 
:270 
:280 

;700 

GB 37 10 
m 3720 
II 3800 
LE 38 10 
NA 3820 
LG 3830 
HL 3840 
LI 3850 
PN 38 60 
KN 3870 

IN 3900 

HD 39 10 
SI 3920 



:0 : 



(V}{11 M 3 I { 8 M3IC8 M: 



"[§" THEN 3700 

3 150 

STK* (1,11) 

AMT=VAL<SH*) *PRC:PW 

' AMT* 



21:7 SR* 

21 : ? "TOTAL" ; 

22: ? UL$; 
ITM=I TM+1 : RESTORE 700+ITM:TRAP 1390 
READ STK*: IF STK*='*|I" THEN 3800 
READ SHt,PP$,AD$ 
RESTORE 800 
READ SELt: IF SEL* = 
READ CPt,DV*.CD$ 
IF SEL*OSTK* THEN 
POSITION 2.CNT+4:? 
PRC$=CPt:GOSUB 400: 
R=5: GOSUB 500 
POSITION 14.CNT+4:' 
TV=TV+AMT 

PRC*=PP*:GOSUB 400:AMT=AMT-VAL(SH*> *PR 
C:BOSUB 500 

POSITION 23.CNT+4:? AMT* 
NG=NB+AMT 

AMT=VAL<DV*> *VAL <SH* > :PWR=4: GDSUB 500 
POSITION 3 
DV=DV+AMT 
CNT = CNT+1 : 
GOTO 3110 
POSITION 1 
FOR 1=1 TO 
GOTO 3110 

AMT=TV: PWR=5: GOSUB 500 
POSITION 14,21:? AMT* 
AMT=NG: GOSUB 500 
POSITION 23,21:7 AMT* 
AMT=DV: PWR=4: GOSUB 500 
POSITION 32,21:? AMT* 
IF ITM>=NUMH THEN 3950 
POSITION 1,23:7 

ismamBsnMSMnsm" ; 

GET #2,R:IF R< >67 AND R<>99 
IF ITM<NUMH THEN CNT=0:GOTO 
GOTO 1000 



, CNT+4: ? 


AMT* 


F CNT=16 


THEN 


23: ? "NO 
300: NEXT 


INFO 
I 



3800 



FOR 



STK* : 



MORE STOCKS . . .PRESS 



THEN 3900 
3020 
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PI 3950 



3960 
4000 
4010 
4020 
4030 
4040 



NN 4050 

FO 4060 

DI 4070 

BF 4080 

CC 4090 

(16 4 100 

ID 4 1 10 

KD 4 120 

OB 4130 
AC 4140 

HP 4170 
BD 4180 
AL 4190 

HA 4200 
IN 4210 
OQ 4220 

OB 4230 
IA 4240 
IF 4250 
PH 4260 
Efi 4270 



6C 
OB 
FL 
CE 
FD 
EF 
AO 
EK 



4280 
4290 
4300 
4350 
4360 
4365 
4370 
4380 



IE 4390 

NG 4400 
OL 44 10 



POSITION 

■amExmm 

GOTO 3900 

REM -REVI 

SCR=1 : ITM 

GOSUB 200 

POSITION 

READ STK* 

4110 

IF ITM>17 

READ CP$, 

ITM=ITM+1 

POSITION 

? STK* 

GOTO 4040 

POSITION 

2 "{4 SPA 

C3B" 

IF ITM<18 

POSITION 

GET #2,R 
IF R=83 O 
IF R=67 O 
OTO 4060 
GOTO 1000 
POSITION 
POSITION 

752, 
INPUT #1, 
1=0 

1=1+1 : IF 
RESTORE 8 
READ STK* 
HEN 4250 
READ CP*, 
GOSUB 200 
TV = 0: NG=0 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
OLDINGI H 
POSITION 
C3 SPACES 
C3 SPACES 
POSITION 
{ 8 M y C B 5 " 
FOR 1=10 

I 



i,23:? •• ia spaces:: ■sh^e 



EW INDIVIDUAL STOCKS 
= 1 .-RESTORE 800 

14,2:7 "STOCKS" 

: IF STKt="d" THEN ITM=0:GOTO 

THEN 4110 
DV*, CD* 

10, 2+ITM 



1,21:? " C3 DEL LINE] 



ENTER S TO 5ELECT ft 5TOI 



THEN 4170 
1,23:? " I 



nmga 



[•MSSuKXE 



R R=115 THEN 4210 

R R=99 THEN ITM=l:GOSUB 200:G 



1,21: 

1,21: 

SEL* 



? "<:3 DEL LINE*' 



; : POKE 



I >NUt 
00 + 1 
: IF 



MS THEN 4900 

STK* ( 1 , LEN (SEL*) ) < >SEL* T 
DV* , CD* 



: DV = 
9,2: 
2,4: 
25, 4 
1 , 6: 
1 , 7: 
OLDI 
1,8: 
3 I 

J t B J 
1,9: 

TO 1 





? "STOCK: " ; STK* 

7 "CURRENT PRICE: " ;CP* 

:? "DIVIDEND: " ; DV* 

? OL* 

? "<VJ DATA<4 SPACES] I H 

NG I HOLDINGCB]- " 

? "CV}{10 SPACES}! NO. 

NO. {3 SPACES] I NO. 

ii 

? "{V}{10 M ] I C 8 MJ I (8 M ] I 
6:POSITION 1,1:? DR*:NEXT 
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IB 4420 
NO 4430 
FH 4440 
FS 4450 
FC 4460 
AH 4470 
EI 44S0 
IB 4490 



POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 



10:? "SHARES" 

lis? "ACQ. DATE" 

12:7 "PUR. PRICE" 

13:? "CUR. VALUE" 

14:? "GAIN/LOSS" 

15:7 "DIVIDEND" 

17:? UL* 

19:? "TOTAL VALUE: 



{10 SPACESJDI VIDEND: 



EB 4500 POSITION 1 



4510 
4520 
4530 
4540 
GO 4550 
EH 4560 
EP 4565 
LE 4570 
AN 4580 

LL 4590 
GH 4600 

P6 4 6 1 
DP 4620 
OA 4630 



:? "NET GAIN/LOSS: 
Cll SPACES3YIELD: (6 SPACES}'/." 
ITM=0: CNT=0: SCR=0 
ITM=ITM+1 : RESTORE 700+ITM 
READ STKt: IF STK*="[a" THEN 4850 
IF STK* ( 1 , LEN (SEL*) ) OSEL* THEN 4: 
READ SH*,PP*,AD* 
CNT=CNT+1:IF CNT=4 THEN 4800 



PK 
ED 
EO 
PO 
FA 
OH 
LK 
HA 
LH 
HL 
LO 
HO 
LK 
NG 
KB 
KA 



4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4800 
4810 



NH 4820 
OB 4850 



POSITION 10+CNT*9,8: 
POSITION 7+CNT*9,10: 
POSITION 4+CNT*9,ll: 
(3,4) ; SL*; AD* (5,6) 
POSITION 5+CNT*9, 12: 



CNT+SCR*3 

SH$ 

AD* (1,2); SL*; 

PP$ 



AD* 



PRC*=CP*: GOSUB 420:AMT=PRC*VAL(SH*) :PW 

R=5:GOSUB 510 

POSITION 4+CNT*9,13:? AMT* 

TV=TV+AMT: YD=100*VAL (DV* ) /PRC 

PRC*=PP*: GOSUB 410:AMT=AMT-VAL(SH*) *PR 

C:GOSUB 510 

POSITION 4+CNT*9,14:7 AMT* 

NG=NG+AMT 

AMT=VAL (SH*) *VAL (DV*) : GOSUB 510 

POSITION 4+CNT*9,15:7 AMT* 

DV=DV+AMT 

AMT=TV:GOSUB 510 

POSITION 14,19:? AMT* 

AMT=NG:GOSUB 510 

POSITION 16,21:? AMT* 

AMT=DV: PWR=4: GOSUB 510 

POSITION 32,19:? AMT* 

AMT=YD: PWR=2: GOSUB 510 

POSITION 33,21:? AMT* 

GOTO 4520 

SCR=SCR+1 : CNT=0: LN=4560 

POSITION 1,23: 

taMMSMMEaancxHm 

GOTO 



MORE HOLDINGS , TYPE 



4930 
POSITION 1,23:? 



HO MORE HOLDINGS 



KN 4860 LN=1000:GOTO 4930 
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PI 4900 POSITION 1 



y-K - r> 



STOCK HOT FOUHB, TY 



4930 
4940 
4950 
5000 
5010 
5015 



NJ 5020 
AC 5030 
Bt: 5040 

EA 5050 

BL 5060 

ED 5070 
NB 5100 
BE 5 1 1 
5120 
5130 
5140 
5150 
5160 
5170 
51S0 
5190 
5200 
5210 



OE 5220 
GD 5230 



BET 

IF R 

SOTO 

REM 

SCR = 

BOSU 

{ 14 

{8 S 

BOSU 

POSI 

POSI 

{4 S 

POSI 

£7 M 

FOR 

T I 

POSI 

IF C 

READ 

CNT = 

READ 

POSI 

POSI 

POSI 

POSI 

POSI 

SOTO 

POSI 

POSI 

TO P 

? " { 

? " £ 



nDBmrMr ; :ln=i«00 

r = 99 THEN BOTO LN 



#2, R 
= 67 OR 

4930 
-REVIS 
1 : CNT= 
B 910: 
SPACES 
PACES} 
B 200 
TION 
TION 
PACES} 
TION 
3 I £ 6 M 
1 = 1 TO 



E POR 
0: ITM 
? " £4 
3 {SET 

{SET 

1 » "3 



TFOLIO 

=0: RESTORE 700 

SPACES]- {SET TAB> 

TAB} {6 SPACES} {SET TAB! 
TAB} " 



OL* 

" {V3REI{4 SPACES3STOCK 
SIP.PRICEIA.DATE{B}" 
{ V } { 2 M}l{13 M}({5 M}l 



I SHR! 
, 3: 
} { B } " 
13:P0SITI0N 0,1+3:7 HR*:NEX 



TION 
NT=13 

STKt 
CNT+1 

SH*, 
TION 
TION 
TION 
TION 
TION 

5100 
TION 
TION 
ROCEE 
5 SPA 
5 SPA 



0,17:7 

THEN 
: IF ST 
: ITM=I 
PP*, AD 
1 + ( ITM 
4 , CNT+ 
18, CNT 
24, CNT 
32, CNT 

, 18:7 
4 , 18:7 
D: " 
CES3 A 
CES3D 



UL* 
5200 

K*="[§" THEN 5200 
TM+1 
* 

< 10) , CNT+3: 7 ITM 
3:7 STKt 
+3:7 SH* 
+ 3:7 P P * 
+3:^ AD* 

CBS* 

"ENTER AN INSTRUCTION 

- ADD TO PORTFOLIO" 

- DELETE FROM PORTFOLIO 



KE 5240 
KL 5250 
ED 5260 

ID 5290 
OP 5300 
BB 5310 
BF 5320 
AK 5330 
AD 5340 
NG 5350 
PB 5370 
JH 5470 



IF C 

ION 

BET 



IF 
IF 
IF 
IF 
IF 



SOTO 
RN = 5 
STK* 
21,2 



NT 
5, 
#2 
= 6 
= 6 
= 6 
= 8 
= 6 
5 

= 1 
7) 



SPAC 
SPAC 
= 13 
23: 7 

,R 
5 OR 

8 OR 

9 OR 
2 OR 
7 OR 
290 
0: BO 
N* ( 1 
: AD* 



ES}E - EDIT PORTFOLIO" 
ES}R - RETURN TO MAIN MENU" 
AND NUMH>13* <SCR) THEN POSIT 
"C - CONTINUE LISTING"; 

R=97 THEN 5370 

R=100 THEN 5610 

R=101 THEN 5530 

R=114 THEN 1010 

R=99 THEN RN=5000:SOTO 1410 



SUB 1410 
, 13) : SH*= 
=INt (29, : 



IN* < 1 
4) 



5, 19) : PP*=IN* ( 
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PD 5480 GOSUB 310:? " (DOWN} " ; 700 + ITM + l ; Dt ; STKt 
;CM$;SHt;CM*;PPt;Clit;AD$:GOSUB 360 

BH 5470 NUMH=NUMH+1 : GOTO 1490 

HN 5530 POSITION 1,18:? CBS* 

EF 5540 POSITION 3,19:? "MOVE CURSOR TO LINE T 
D BE EDITED, (4 SPACESTMAKE CHANGES AND 

PRESS Msmmnzn" 

KA 5560 POKE 752, 0: POSITION 3,18:? " " ; : TRAP 5 

200 
HP 5570 INPUT #l,IN*:POKE 752,1:G0SUB 1310 
HN5580 RE = VAL(IN$(2,3) ) :STK$=INt(5, 17) : SH*=IN 

* < 19, 23) :PP*=IN*<25,3 1) :AD*=IN*<3 3,38> 
IA 5590 GOSUB 310:? " i DOWN3 ■" ; 700 + RE ; D* ; STKt ; CM 

*;SH$;CM*;PP$;CMt;fiD$:GOSUB 360:GOTO 5 

200 
IB 5600 REM -DELETE FROM PORTFOLIO 
HM5610 POSITION 1,18:? CBS* 
JF 5620 POSITION 3,19:? "ENTER REFERENCE NUMBE 

R OF HOLDING TO BE DELETED, PRESS BEHE 

tHSCTI" : POKE 752,0 
ED 5630 INPUT RE:POKE 752 , 1 : RESTORE 700+RE+l:I 

F RE=NUMH THEN 5680 
AM 5640 FOR I=RE TO NUMH-1 
LC 5650 READ STK* , SH* , PP* , AD* 
PG 5660 GOSUB 310:? " { DOWN} " ; 700+ I ; D* ; STK* ; CM* 

; SH*; CM*; PP*; CM*; AD*: GOSUB 360 
FK 5670 NEXT I 
EJ 5680 GOSUB 310:? " { DOWN} "; 700 + NUMH : GOSUB 36 


BI 5690 NUMH=NUMH-1 : GOTO 5010 
OH 6000 REM -SAVE DATA ON TAPE 
NJ 6010 GOSUB 200 

1? 6020 POSITION 14,2:? "SAVING DATA" 
NN 6030 GOSUB 310 
GO 6040 ? " {DOWN] " ; 610; D* ; CDATE*; CM*-, NUMH; CM*: 

NUMS 
OE 6050 GOSUB 360 
GO 6060 POSITION 4,5:? "1 - TURN OVER CASSETTE 

AND REWIND" 
HK 6070 POSITION 4,7:? "2 - PRESS W MSBSZSM AND ■ 

Gsssiaai" 

KG 6080 POSITION 4,9:? "3 - PRESS MgajHaM " 

MO 6090 TRAP 6110 

KA6100 LPRINT 

DK 61 10 CSAVE 

BB6120 POSITION 4,11:? "4 - REWIND TAPE" 

KB 6130 END 

DL 7000 REM -ERASE ALL DATA 

W. 7010 GOSUB 200 
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JN 7020 



HP 7050 
IJ 7060 
OA 7070 
KB 70B0 
EJ 7090 
EP 7100 
FB 7 1 10 
EO 7 120 
7 130 
7135 
FL 7 140 
HA 7 150 



FD 
FI 



GE 
NJ 



7160 
7170 
DO 7400 
NQ 74 10 
EI 7420 
PC 7430 

ML 7440 

ID 7450 



7460 
7470 
NH 7480 
CS 7490 
7500 
7510 
MP 7520 



HE 
HJ 



DB 
BA 



7530 
7540 
7550 
7560 



EP 7570 

OB 7580 
IE 7590 
LL 7600 

m 7610 

KC 7620 
Btl 7630 

KA 7640 

JN 7650 



POSIT 
ERASE 
OUR D 
BET # 
IF R< 
GOSUB 
POSIT 
FOR I 
GOSUB 
NEXT 
FOR I 
GOSUB 
NEXT 
NUMS = 
POSIT 
C4 SP 
FOR I 
GOTO 
REM - 
GOSUB 
POSIT 
POSIT 
LIO" 
POSIT 
FILE" 
GET # 
IF R = 
IF R = 
GOTO 
SA = PE 
SCHK = 
FOR I 
IF ID 
IF ID 
IF ST 
IN* ( 1 
IF ID 
7) =PP 
IF ID 
7) =DV 
GOTO 
SCHK = 
GOSUB 
IF ID 
IF ID 
GOSUB 

*5 

IF ID 

,27) ; 

IF ID 

97) • 



ION 4,8:? "DO YOU REALLY WANT TO 

ALL 0FO3 SPACES] <6 M3C27 SPACES3Y 
ATA?" 
2,R 
>89 THEN 1000 

200 
ION 15,10:? "ERASING DATA..." 
=1 TO NUMH 

310:? " {DOWN} "; 700+1 : GOSUB 360 
I 
=1 TO NUMS 

310:? " {DOWN} " ; 800+1 : GOSUB 360 
I 

0: NUMH=0 

ION 15,10:? "DATA ERASED 
ACES} " 

=1 TO 300:NEXT I 
1000 

SORT DATA 

200 
ION 12,2:? "DATA SORT ROUTINE" 
ION 8,6:? "ENTER 1 TO SORT PORTFO 



ION 8,8: 



ENTER 2 TO SORT PRICE 



2, R 

49 THEN ID=700: ND=NUMH: GOTO 7490 

50 THEN ID=800: ND=NUMS: GOTO 7490 
7450 

EK (559): POKE 559,0 
0: IN*=BL$: RESTORE ID 
=ID+1 TO ID+ND 

=700 THEN READ STK*, SH«, PPt, AD* 
=800 THEN READ STK*, CP*, DV*, CD* 
K*<IN*(1,13) THEN 7590 
,13) =STK* 

=700 THEN IN* < 15, 19) =SH*: IN* (21 , 2 
*: IN* (29, 34) =AD* 

=800 THEN IN* ( 15, 21 ) =CP*: IN* (23, 2 
* : IN* (29, 34) =CD* 
7670 
I 

310: ? " (DOWN} " ; 1-1 ; D*; STK*; CM*; 
=700 THEN ? SH*; CM*; PP*; CM*; AD* 
=800 THEN ? CP*; CM*; DV*; CM*; CD* 

360: ? " {DOWN* " ; I ; D* ; I N* ( 1 , 1 3 ) ; CM 

=700 THEN ? IN* ( 15, 19) ; CM*; IN* (21 
= 800 THEN ? IN* ( 15, 21 ); CM*; IN* (23 
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FO 7660 ? CM*; IN* (29, 34) : GOSUB 360 

FH 7670 NEXT I 

PB 7680 IF SCHK5-0 THEN 7500 

JN 7690 POKE 559,SA:GOTO 1010 

EE 8000 REM -DIMENSION AND INITIALIZE 

NK8010 OPEN #1,12,0,"E: " : OPEN #2 , 4 , , " K : " : POK 

E 82,0 
NE 8020 DIM TITLE* (22) , CDATE* (6) , SL* ( 1 > ,CM* ( 1 ) 

, D* (6) , CBS* (6) 
008030 DIM STK* < 13) , SH* (5) , PP* (7) , AD* (6) , CP* ( 

7) , CD* (6) , DV* (5) 
BL 8040 DIM SEL* ( 13) , IN* (39) , AMT* (9) , PRC* (7) , B 

L* (39) 
HN 8050 DIM OL* (39) , UL* (39) , HR* (39) , PR* (39) , DR 

* (39) , SR* (39) 
FM8110 TITLE*="STOCK PORTFOLIO AS OF " 
DO 8120 SL*=" /" 
CN 8130 CM*=" , " 
NA8140 D*=" DATA " 
DA 8150 0L*="<:39 N>" 
BA8160 UL*="<:39 M} " 
BH8170 HR*=" CV> IC13 SPACES} I (5 SPACES} I 

{7 SPACES} I (h SPACES} CB}" 
CA8180 PR*="CV} It 13 SPACES} I C7 SPACES}! 

<5 SPACES} I C6 SPACES} CB}" 
JJ8190 DR*=" CV> C10 SPACES} I C8 SPACES}! 

<8 SPACES} I t8 SPACES} CB}" 
KA 8200 SR*=" CV} C 1 1 SPACES} I C8 SPACES}! 

<8 SPACES} I C7 SPACES} <B} " 
PO8210 BL*=" C39 SPACES}" 

LF 8220 SEL* = BL*:STK* = BL*:SH* = BL*:PP* = BL*:AD* = 
BL*: IN*=BL*: CP*=BL*: DV*=BL*: AMT*=BL*: P 
RC*=BL* 
PC 8230 CBS*="<6 DEL LINE}" 
AB 8900 REM -READ KEY DATA 
EG 8910 READ CDATE* , NUMH , NUMS 
HG 9000 REM -ENTER DATE 
Nil 9010 GOSUB 200 
P0 9020 POSITION 2,3:7 "ENTER CURRENT DATE (MM 

/DD/YY) . " 
OB 9030 POSITION 22,5:? "M/M/V 
EF 9050 FOR 1 = 1 TO 6 
ID 9070 GET #2,R 
GB 9080 IF R<48 OR R>57 THEN CDATE*=" 

C6 SPACES} ": 1=6: GOTO 9030 
OL 9090 POSITION 2 1 + I + ( I >2 ) + ( I >4 ) , 5 
KN9100 ? CHR*(R) 
EA9110 CDATE* ( I , I ) =CHR* (R) 
FE9120 NEXT I 
KO9140 RETURN 
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Horizon: A Celestial 
Coordinates Calculator 

Russell A. Grokett, Jr. 



Among your Atari's many talents is the ability to precisely 
locate the planets and stars. With this program, astronomy 
and photography buffs will be able to pinpoint celestial 
bodies with remarkable accuracy. 

Remember when you got that telescope for Christmas, and 
how you ran out to set up your new equipment, only to dis- 
cover how hard it was to find anything more difficult than the 
moon or a few stars? 

Now your Atari comes to the rescue. With the aid of "Ho- 
rizon," your computer, and a star atlas or almanac, you can 
find the altitude and azimuth, in degrees, of any celestial ob- 
ject, at any time, whether it's rising, setting, or high in the 
sky. Then, with the use of a compass, you can position your 
camera or telescope in just the right direction, ready to begin 
observation. 

Using Horizon 

In order to calculate the altitude and azimuth of an object, the 
program will ask for the date (month, day, year) and universal 
time (UT), in hours and minutes, of the event. It will also ask 
for your latitude and longitude (in degrees and minutes of arc) 
at the time of the event, as well as the right ascension (RA) (in 
hours and minutes) and the declination (DEC) (in degrees and 
minutes) of the object, as published in a star atlas or celestial 
almanac. 

The program will then print out the altitude and azimuth 
of the object for the specified time and location. Note that if 
an object is below your horizon at the time, the altitude angle 
will be a negative number. 

If you want to calculate the azimuth angle for a rising or 
setting object, you will need only your latitude and the ob- 
ject's declination. The output will then be the azimuth angle 
of the object. 

With that information, set up your camera or telescope. 
Use a compass to position your camera the number of degrees 
from true north specified by the azimuth angle. If the altitude 
angle of your camera needs to be set, use a device like that 
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shown in the figure to tilt your camera the required number of 
degrees. Lock everything down, and wait for the specified 
time to arrive! 

A Simple Elevation-Only Tracking Device 



Line of sight 



Screw Eye 




Yard stick 
Protractor 







Weight 



How Horizon Works 

Lines 250-370 calculate your local sidereal time for the event. 
Lines 390-480 gather information concerning your position 
and the object's position. Lines 490-540 convert everything to 
radians and calculate the altitude and azimuth of the object, at 
the specified time, and lines 850-990 calculate the object's 
rising or setting azimuth. 

Lines 1110-1230 calculate the Julian day for the month, 
day, and year that you entered, in order to determine your 
local sidereal time. If you wish, you can modify lines 330, 440, 
and 860 to print your longitude and latitude. 

Horizon: A Celestial Coordinates Calculator 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HC 150 DIM N< 12) 

01 160 LET RADIAN=0. 0174532 

EB 170 LET DEGREE = 57. 295778 

NA 180 OPEN #1,4,0, "Kx" 

FB 190 FDR 1 = 1 TO 12:READ N : N < I ) =N : NEXT I 
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LK 200 DATA 0,31,59,90,120,151,181,212,243,273 

, 304, 334 
BF210 GOTO 720 

KB 220 REM *» CALCULATE LST ** 
PE 230 SETCOLOR 2.6,4 
LP 240 POKE 752,0 
MH 250 ? " CCLEAR] {DOWN} Input Man t h , Day , Year (i 

. e. , 12, 7. 78) " : INPUT MO,DA,YR 
KB 260 YEAR=YR+1900 
NL 270 GOSUB 1100 
BA 280 N = N(MO)+DA 
JK 290 ? "C2 DOWN] UNI VERBAL TIME (UT) of Event 

(Hr . , Min) " 
FK 300 INPUT Tl , T2 
EB310 T = Tl+(T2/60) 
LL 320 ? "{.2. DOWN) Input your Longitude (Deg,Mi 

n. ) " 
KO 330 ? " (DOWN5JAX, FL = 81, 39.74" 
NH 340 ? : INPUT LI , L2 
CN 350 L=Ll+(L2/60) 

LJ 360 LST = K+(0.0657*N) + <1.0027*T)-(L/15) 
KF 370 IF LST>24 THEN LST=LST-24 
FN 380 REM * * CAL . ALT & AZIM ** 
m 390 7 "C2 DOWN>Input R.A. of Object (Hr.Min 

) " : INPUT Rl , R2 
HH 400 RA=R1+ (R2/60) 
AO 410 HA = LST-RA 
HF 420 HA = HA*15 
JN430 ? " CCLEAR3C2 DOWN} Input your Latitude ( 

Deg, Min)" 
KJ 440 ? " {DOWN} JAX, FL = 30, 19.75" 
FA 450 INPUT L1,L2 
CP 460 L=Ll+(L2/60> 
IA 470 ? "{2 DOWN}Decl ination of Object <Deg,M 

in)": INPUT Dl , D2 
KB 480 DEC = D1 + (D2/60) 

HI 490 REM ** CONVERT ALL TO RADIANS ** 
LN 500 HA = HA*RADIAN 
EE 510 L=L*RADIAN 
EF 520 DEC=DEC*RADI AN 
EK530 Y=(SIN(DEC)*SIN(L) ) + (COS (DEC) *COS (L) *CO 

S (HA) ) 
GF 540 E=ATN ( Y/SQR ( 1-Y ~2) ) 
PN 550 ALT = E 
10 560 Y=(SIN(DEC)-SIN(L> *SIN (E) ) / (COS(L) *COS < 

E) ) 
EL 570 IF Y<0 THEN A 2 = 3 . 1 4 1 5927 + ATN < SQR < 1 - Y"2 ) 

/Y) : GOTO 590 
LP 580 AZ = ATN (SQR ( 1-Y ' 2) /Y) 
HL 590 REM ** CONVERT BACK TO DEG 
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SL 600 ALT=ALT*DEGREE ^ 

OA610 AZ = AZ*DEGREE 

LP 620 IF SGN(HA>=1 THEN AZ=360-AZ 

KK 630 REM ** PRINT OUT ** _ 

PJ 640 SETCOLOR 2,7,3 

ME 650 ? " {CLEAR} {DOWN} ** HORIZON COORDINATES 

**" 
AF 660 ? "C2 DOWN1DATE: " : DA , MO , YR+ 1 900 
DJ 670 T=INT <T*100) / 100 
GG 680 ? "{DOWN}UT= " ; T : " HR's" 
NO 690 ? "{3 DOWN3A1 ti tude of object= ";INT(AL 

T* 100) / 100; " Deg. " 
AG 700 ? "{3 DOWN} Az i muth of Object= "; INT(AZ* 

100) / 100; " Deg. " 

GOTO 1000 

REM ** START ** 

SETCOLOR 2,3,4 

POKE 752, 1 

? "{CLEAR} {DOWN}** HORIZON COORDINATES 

CALCULATOR * * " 

? "{3 D0WN}1. Gal. Altitude S< Azimuth" 

? "2. Cal . Angle of Rising Object" 

? "3. Cal. Angle of Setting Object" 

? "{2 DOWN} Input one of above." 

GET #1,A: IF A<49 OR A>51 THEN B00 

IF A=49 THEN 220 

IF A=51 THEN SET= 1 

REM * CAL. ANGLE * 

POKE 752,0 

SETCOLOR 2,13,4:? "{CLEAR} {2 DOWN} Input 
your Latitude (Deg.Min) " 

? " {DOWN} JAX, FL. is 30, 19.75" 

? : INPUT LI , L2 

L = L1+ <L2/60) 

? "{3 DOWN}Input Object's Declination ( 

D,M)":INPUT D1,D2 ^ 

DEC = D1 + (D2/60) 

L=L*RADI AN 

DEC=DEC*RADIAN 

Y = SIN (DEC) /COS (L) «^ 

AN = ATN (Y/SOR ( l-Y-2) ) 

AN=AN*DEGREE 

IF SGN<AN)=-1 THEN AN=ABS < AN ) +90 : GOTO 9 

80 

AN=90-AN 

IF SET=1 THEN AN=ABS < AN ) + 1 80 

? "{2 DOWN}Ob ject ' s Azimuth Angle= "; IN 

T < AN* 100) /100; " DEG." 
KN 1000 REM ** AGAIN ** 
OH 1010 POKE 752, 1 
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JC 710 


LD 720 


PG 730 


HF 740 


KP 750 


Fl 760 


DO 770 


LC 780 


LP 790 


DJ 800 


NG 810 


JG 820 


0! 830 


HF 840 


GK 850 


HH 860 


HP 870 


DF 880 


MF 890 


JO 900 


EI 910 


EJ 920 


OK 930 


LD 940 


HP 950 


OK 960 


JB 970 


PP 980 


FE 990 
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BP 


1020 


GF 


1030 


GH 


1040 


HC 


1050 


HE 


1060 


PB 


1070 


EK 


1080 


KB 


1090 


OP 


1 100 


MD 


1110 


IL 


1 120 


FH 


1 130 


ON 


1 140 


J I 


1 150 


fll 


1 160 


HB 


1 170 


PI 


1 180 


AC 


1 190 


JA 


1200 


OF 


1210 


FH 


1220 


KG 


1230 



? "C2 DOWN} Another calculation?" 

GET #1 , A 

IF A = 89 THEN RUN 

IF A=78 THEN BOTO 1070 

GOTO 1030 

POKE 752,0 

GRAPHICS 

END 

REM ** JULIAN DAY ** 

A=INT < (7*YEAR) /4) 

B=(367*YEAR)-A+30 

MJD=B-678987+0. 5 

JD=MJD+24 0000 

J1=JD-2415020 

T=Jl/36525 

J2=8640184.54*T+0.0929*T'2 

J3=J2/3600 

J3=J3+6. 6460656 

J4=J3/24 

J5=J4-INT < J4> 

K=J5«24 

RETURN 
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Invisible Music 

Paul Gentieu 



Using the simple routine described here, you can add 
sophisticated music to your BASIC programs — without 
affecting execution speed. 

If you've written a program that includes music, you probably 
noticed that playing that music requires quite a bit of process- 
ing time. The reason is simple: The sound registers must be 
constantly updated. As a result, it is difficult to do any com- 
plex calculations or graphics manipulations while your music 
routine is playing. 

Having run into this problem, I decided to write a small 
machine language routine that plays music "in the back- 
ground." That music is invisible, as far as BASIC is concerned, 
and it frees your program to do more important things. It can 
be of great value, particularly in games or other applications 
where it would be nice to add music without affecting execu- 
tion speed. 

This routine interfaces with BASIC via the USR function. 
Simply make one call to the routine and forget it. The tune 
will immediately begin playing and will not affect the execu- 
tion speed of any BASIC program. You can use up to four 
voices. 

Once you have decided how many voices you want, POKE 
the audio control registers (53761, 53763, 53765, and 53767) 
with 160 for a pure tone plus the volume (from 1 to 15) that you 
wish to use. The voice parameter is passed to machine language, 
along with the address of the string holding your music data, 
by the statement A = USR(1536,ADR(A$), VOICES). When set- 
ting up the string, the first number is the duration; it is fol- 
lowed by the notes themselves. The table gives a listing of 
note values. 

An example is helpful. A typical statement might be 
A = USR(1536,ADR (A$),2). In this case, the string A$ would 
be made up of a duration value, then the values for two notes 
to be played simultaneously, then another duration, then two 
more notes, and so on. 

The duration is measured in sixtieths of a second. Since a 
string can hold only individual values from to 255, the dura- 
tion can range from 1/60 second to 4-1/4 seconds. That 
should be a wide enough range for most applications. Note 
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that when you use a zero for the duration, the routine will 
start the music over from the beginning. 



Note Values 


Note 


Valu 


High notes 


C 


29 




B 


31 




A# 


33 




A 


35 




G 


40 




F# 


42 




F 


45 




E 


47 




D# 


50 




D 


53 




C# 


57 




c 


60 




B 


64 




A# 


hS 




A 


72 




G# 


7b 




G 


81 




F# 


85 




F 


91 




E 


96 




D# 


102 




D 


108 




C# 


114 


Middle C 


C 


111 




B 


128 




A# 


136 




A 


144 




G# 


153 




G 


162 




F# 


173 




F 


182 




E 


193 




D# 


204 




D 


217 




C# 


230 


Low Notes 


c 


243 
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modified to work on strings of any length, but 256 bytes 
should be enough for most tunes. 

Caution 

One thing to watch for: When the routine is running (and it 
will continue to run if you press the BREAK key to stop the 
program), you should not type in any program lines or cause 
the program to modify itself in any way. Nor should you type 
in anything in immediate mode, as that may cause the string 
holding the music to be moved around in memory and result 
in incorrect notes. 

A Simple Example 

A sample BASIC program with a demonstration tune is in- 
cluded to show just how easy the routine is to set up and use. 

The routine works using the interrupt generated by the 
second system software timer. I chose to use the timer inter- 
rupt over the vertical blank because the music routine is short 
and many excellent utilities already use the vertical blank 
interrupt. The second timer is one of two that generate inter- 
rupts. Timer 1 was not used, because it is used to time 
input/output and serial bus events. 

Duration is very easily implemented using timers. The 
second timer is started by storing a clock value in $21A (the 
timer 2 value address). This value is decremented during each 
vertical blank interrupt (once every 1/60 second). Once the 
timer hits zero, the computer interrupts what it is doing and 
performs an indirect JSR through $228 and $229 (the timer 2 
interrupt vector). 

The music routine is set up by placing its beginning ad- 
dress in these vector locations. Once that's done and the timer 
has been started, the routine will execute without slowing 
down BASIC operations. To implement duration, all that must 
be done is to store different clock values in $21A, controlling 
how frequently the routine is called (and how often the sound 
registers are updated). The routine ends with RTS since it was 
called with JSR. 
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Invisible Music 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 



PA 



AK 20 
PP 30 
LH 40 

CO 50 
BK 60 

IH 70 
IP 80 



KI 81 



eg a: 



5 M=l 
10 PO 
UD 
AN 
DI 
TR 
RE 
EA 
TR 
RE 
R 
RE 
DA 

, 1 
36 
DA 

04 

0, 
DA 



KE 

IO 

D V 

M A 

AP 

AD 

D R 

AP 

AD 

EAD 

M * 

TA 

33. 

, 14 

TA 

,24 

232 

TA 

96, 



CO 
OL 
* ( 
50 
D: 
OU 
20 
D: 
M 
** 
10 
20 
1. 
1, 
0. 
,2 
24 
16 



76 1 , 168: POKE 53763,168 
NTROL REGISTERS WITH A 
UME OF 8 
256):REM MUSIC HOLDING 



PO 

TI 



A* 

US 

RO 

4, 

4, 

40 

14 

29 

32 

1 , 

9. 



KE 
NE 

(«, 

IC 

UTI 

169 

104 

. -t- . 
1 .2 
, *4 

■ jfi. o 

200 
0, 1 



1536+T, D 
DATA 



T=T+1 : GO 



:REM POKE A 
PURE TONE 

STRING 

TO 40:REM R 



M) = 
DAT 
NE 

.0, 
, 10 
169 
6,2 
1 ,2 
6,2 
, 14 
41 , 



CH 

A 

DA 

14 

4, 

,6 

,9 

53 

55 

0, 

25 



R* <D> : M=M+1 : GOTO 60:REM 



TA*** 

1 , 254, 6, 104, 
10, 233, 1,14 1 
, 141,41,2, 16 
6, 172, 254 , 6, 
, 6, 200, 177, 2 
, 6, 48, 243, 24 
254, 6, 173, 25 
4,6, 169. 10, 1 



133, 205, 104 

, 255, 6, 169, 

9 

162, 0, 177, 2 

04, 157,0, 21 



3,6, 141 , 26, 

41 , 26, 2, 96, 



-1 

OE 90 RE 

AE 100 D 

1 



M ***M 
ATA 9, 
,9,81, 
81,81, 



US 

81 
14 

9, 



IC D 
, 121 
3, 9, 
60, 1 



ATA* 
,9,9 
96, 8 
21,9 



** 
6.14 

1 *?, 

, 60. 



3,9, 
121 . 
143. 



121 
121 
9, 6 



CP 101 



ak 10: 



EK 103 
JA 104 



LN 105 

IB 200 
EC 210 
AK 220 



ATA 9, 
1,9,10 
, 9, 108 
ATA 9, 
,121,1 
1 , 143, 
ATA 9, 
ATA 9, 
21,9,7 
,60,81 
ATA 81 
21,9,5 
EM *** 
= USR ( 1 
OTO 22 



72 
8. 
,8 
72 
21 
9, 
64 
12 
2, 
,9 
, 9 

^ j 
ST 

0: 



, 121 
143, 
1,9, 
, 81, 

96, 8 
,81 , 
1,12 
143, 

, 64, 
, 47, 
143, 
ART 
6, AD 
REM 



,9,9 
9, 91 
68, 1 

9, 68 



14 
9, 
72 
9, 
9 1 



121, 
121, 
9,64 
MUSI 
R <A« 
YOUR 



1 , 14 
,81, 
21,9 
,121 
3,9, 
60, 1 
,121 
108, 
, 81 , 
9, 60 
9 . 60 
,81, 
C*** 
) , 2) 
PRO 



3,9, 108 
9, 108, 1 
, 68, 143 
,9,81, 1 
81,81,9 
21 , 9, 60 
,9,91,1 
143, 9, 9 
9.53, 12 
,143,9, 
, 143, 9, 
9, 64, 12 



,81 ,9,96, 12 

,9,96, 143,9 
4,81 

,81,9, 121 , 1 
21,9, 121 , 14 

43, 9, 96, 81 , 

,96, 121,9, 1 

, 143 

43, 9, 108, 81 

1,81,9, 108, 

1 , 9, 53, 143, 

81 

40, 81 , 9 , 40, 

1,0.-1 



GRAM HERE 
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Chapter 5 

Atari Tape Enhancer 



Jordan Powell 



If you've ever been frustrated by the lack of file handling 
on the Atari program recorder, then the two short pro- 
grams aescribed here are for you. The article also includes 
information on string handling and program compaction 
with Atari BASIC. 

Looking for files on the Atari program recorder can be a real 
chore. You can write down the file description and its location, 
but the paper could get misplaced. Loading files one after the 
other to get to the right one isn't my idea of fun either. 

Taking a lesson from the way the VIC-20 handles its tape 
files, I have written two programs to help make life easier for 
Atari tape users. You use them as follows: Start out by loading 
a tape and zeroing the tape counter, then advance the tape to 
a reading of 20 on the counter. Next, store up to six files on 
the tape, being careful to note the filename you want (up to 
16 characters), the location of the beginning of the file, and 
the command used to save the file. 

When you're done, rewind the tape and run Program 1. It 
will ask you for the name you would like to give the cassette; 
respond with a tape name of up to 16 characters (for example, 
GAME TAPE #1). The program will then ask for the names, 
locations, and commands used to save up to six files on the 
tape. You respond with the filename, tape counter reading for 
the beginning of the file, and the first letter of the command 
used to save the file. If you have less than six files, respond to 
the filename prompt after the last file by pressing ESCape 
twice followed by RETURN. The program will stop prompting 
you and store what I call the system tape file on the cassette. 
It contains the information you just typed in, and all the infor- 
mation you need to locate and load all of the files on the tape 
is safely stored on the cassette itself. 

Program 2 reads the system file, writes a menu to the 
screen, and asks you to select the number of the file you want 
to load. After you select the appropriate file, it tells you the 
counter reading at which it will be found. Advance the tape to 
that location and press RETURN to load the file. If you make 
a mistake locating the file, the program gives you another 
chance. 
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Atari Strings 

The key to these programs lies in an understanding of Atari 
BASIC string handling. A string is a sequence of one or more 
characters. In statement 40 of Program 1, the dimension state- 
ment defines the string variables used in the program. CBUF$ 
is the string variable which will be put into the cassette buffer 
and subsequently written to the tape. The cassette buffer is an 
area in RAM from which the Atari writes to the program 
recorder. 

The rest of the string variables will hold inputs from the 
keyboard. As filenames, locations, and commands are entered, 
they are added to CBUF$ one after the other. S is used as a 
space-saving measure. Every time a constant is used in Atari 
BASIC, it takes up seven bytes. Using a variable causes it to 
be stored once when it is defined, and all other references take 
up only one byte. 

Adding characters to CBUF$ as in line 110 is done by 
using the following form of expression: CBUF$(start,end) = 
TN$, where start and end are the starting and ending po- 
sitions in the string CBUF$. TN$ contains the character string 
to be placed into CBUF$ at the positions indicated by start and 
end. By manipulating the starting and ending positions of data 
within CBUF$, the string is filled with file data one piece at a 
time. With this explanation and the Atari BASIC reference 
manual you should be able to decipher the rest of the 
program. 

To speed up the loading of these programs, you can make 
them smaller so there is less to load. This can be done by 
removing REM statements, substituting variables for constants 
as explained above, putting two lines of code on one logical 
line (a logical line is one starting with a line number) sepa- 
rated by colons, and by substituting ? for the word PRINT in 
PRINT statements. 

Program 1 . Tape File Maker 

For error-free program entry, read "The Automatic Proofreader" in Chapter 3 before typing 
in this program. 



AI 10 REM 

KH 20 PRINT (CLEAR) 

HL 30 REM 

LO 40 DIM CBUF* ( 128) , FN* ( 12) , CT1 (3) , TN* < 16) , SM 

* ( 1 ) : S=16 
JN 50 REM 



CREATE SYSTEM TBPE FIL 



DEFINE UHRIRBLE3 ftMD COKS TOUTS 



FILL CASSETTE BUFFER WITH BLflMKS 
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CG 60 
BN 70 
CD 80 
LP 90 
GH 100 

m 1 10 

GF 120 

BA 130 

DP 140 

NO 150 

JG 160 



BA 170 
NA 180 
HF 190 

IG 200 
PO 210 
BJ 220 
NP 230 
OK 240 
OL 250 
CF 260 
AN 270 
CJ 280 
HO 290 
IN 300 
PE 310 



FOR 

REM 

PRIN 

INPU 
REM 
CBU 
REM 
FOR 
PRI 
INP 
IF 
{T3 
6 F 
REM 
CBU 
PRI 
LE? 
INP 
REM 
PRI 
PRI 
INP 
CBU 
NEX 
REM 
PRI 
OPE 
PRI 
PRI 



"INPUT 
TN* 



!8:CBUF* <N, N) =" ":NEXT N 
TAPE NAME < 16 CHARS MAX)" 



N=l TO 1 



INPUT TAPE VOLUME LflBEl 



PUT TOPE LABEL XHTO BUFFE 



F* ( 1 , S) =TN$ 



INPUT INFORMATION FOR UP TO & FILES 



N=l TO 6 
NT "INPUT 
UT FN* 
FN* (1,1)= 

WHEN ESC 
ILE INFO 



FILE " ;N; " NAME" 

"CESC3" THEN GOTO 270: REM 
APE HIT WE ARE DONE ENTERIN 



HHAT IS TAPE COUNTER READINi 



N*S+13> = FN* 

COUNTER READING FOR THIS FI 

S) " 

UF*<N*S+13,N*S+15) =CT* 

s<6 aanaia> 

COMMAND USED TO SAVE ? " 
/SAVE C/LIST C -<C„S,L>" 



F* <N*S+1 , 
NT "TAPE 

<3 DIGIT 
UT CT*:CB 



HOH IS TAPE FILE SAVE 



NT "WHICH 
NT "CSAVE 
UT SM* 

F*<N*S+S,N*S+S) = SM* 
T N 



WRITE SYSTEM FILE TO CASSETT 



NT "PRESS PLAY/RECORD-RETURN 1 

N #1,S,0,"C:" 

NT "WRITING SYSTEM FILE" 

NT #1;CBUF* 



Program 2. Tape File Reader 



LP 10 REM DISPLAY SYSTEM TAPE FILE MENU 
AJ 20 PRINT " {CLEAR} " : REM <!T> CLEAR SCREEN 
HL 30 rem [SrjOaE!lM BgBEHBI3gSMIgEa H BagBlEElB 
LO 40 DIM CBUF* ( 128) , FN* ( 12) , CT$ <3) , TN* ( 16) , SM 
* < 1 ) : S=16 

bh 50 rem m.t gazMasaaargE 

00 60 PRINT "PRESS PLAY THEN HIT RETURN" 
JG 70 OPEN #1,4,0, "Cs " 

aa 80 rem [MMSMMSSSSSMMMSMnnMSSSMBOEMIMnSERnSB 

CI 90 FOR N=l TO 128: CBUF* <N, N> =" ":NEXT N:REM 



READ IN AND PRINT TAPE LABEL TO THE SC 



tMML 
FN 100 PRINT "{CLEAR}"; "READING SYSTEM FILE" 
HN110 INPUT #1 ; CBUF*: PRINT "{CLEAR}" 
NN 120 PRINT CBUF* < 1 , 15) : PRINT : REM C T } SPACE 
LH 130 REM 
BB 140 FOR N=l TO 6 



PRINT FILE MENU ON SCREE 
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150 
160 
170 
180 
190 
BP 200 
EL 210 
BI 220 

HD 230 
HN 240 
AB 250 
KB 260 
61 270 

m 280 

DP 290 
DK 300 
NA 310 
EB 320 
HJ 330 
NB 340 
EE 350 

BN 360 



<N*S+1 , N*S+13) 
<N*S+13, N*S+15) 
<N*S+S,N*S+S> 
";FN*; " " ;CT«; " ";SM$ 



PROMPT FOR PROGRAM TO BE LOftDE 



INT "ENTER NUMBER OF PGM YOU W 



<N*S+1 ,N*S+13) 

(NtS+13, N*S+15) 

VANCE TAPE TO ";CT*;" FEET' 



DECIDE WHICH COMMAND TO LORD HIT! 



N*S+S, N*S+S) ="C" THEN GOTO 330 
N*S+S,N*S+S)="E" THEN GOTO 340 

HBEBBBBB 

:PRINT "HIT RETURN- 
INT "HIT RETURN" 

II 

POSITION TAPE TO "iCT*;" FEET 



FN*=CBUF* 
CT$=CBUF$ 
SM*=CBUF* 
PRINT N;" 
PRINT 
NEXT N 
REM 

PRINT :PR 
ANT RUN" 
INPUT N 
FN*=CBUF* 
CT*=CBUF* 
PRINT "AD 
TRAP 350 
REM 

IF CBUF* < 
IF CBUF* ( 
REM rgiT-Tf 
LOAD "C:" 
CLOAD :PR 
ENTER "C: 
PRINT "RE 
AND RETRY 
GOTO 290 



224 



Chapter 5 

Disk Catalog Utility 



Andrew Genser 



For many computer users, one of the most time-consuming 
tasks is searching through disks to find a particular pro- 
gram. This program gives you an alternative. 

Wouldn't it be nice if you could have an index of all your 
disks, stored on one disk? That way, you would never have to 
switch disks — and with a few enhancements like a search 
capability and printout, you would have an extremely useful 
utility. 

The problem with many disk cataloging systems is that 
they do much more than is really necessary. The time spent in 
keeping one up-to-date usually negates its usefulness. Thus, 
many home computer users end up with a list of programs 
that includes all kinds of unwanted information. However, this 
disk housekeeping utility forgoes the unneeded frills to make 
it much simpler to keep track of your disks. 

One Large Directory 

"Disk Catalog Utility" (DCU) is really just a mass directory. It 
creates separate files, on one designated catalog disk, of all 
your disks' directories. This means that you can get a directory 
of any disk without going to DOS and switching disks around. 

Three other features make DCU even more useful. First, 
you have the option of doing a disk directory of all of your 
disks, one of your disks, or all disks in a certain range. Sec- 
ond, DCU makes full use of Atari's wild card. This is a symbol 
in the filename of a program that allows you to view every- 
thing with a specified string in its name. For example, if you 
want to see files ending with the letters .LST, type *.LST in re- 
sponse to the prompt. The asterisk is the most common wild 
card symbol, but you may choose your own when using DCU. 

A file specification doesn't have to have a wild card. If 
you know exactly which filename you are looking for, type 
that in, and DCU will identify all the disks that contain that 
filename. 

Finally, for those who own a printer, DCU will also give 
you a hard copy of the directory catalog. It channels whatever 
is printed on the screen directly to your printer, using the 
LPRINT statement. 
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Creating the Directory 

First, you must number each disk, starting with disk number 
1. Using a felt-tip pen, write the disk number on the label (not 
on the disk cover). 

Then run the program. You'll be asked to specify the de- 
sired wild card symbol. If you hit return, DCU will automati- 
cally use the asterisk (*) as your wild card. 

At that point, you are ready to catalog your disks. Run 
DCU, and type C for catalog disk. You will be asked which 
disk you want to be cataloged. Type in the appropriate num- 
ber and press RETURN. Then insert disk number one and 
press RETURN. DCU will read in the directory of disk 1. Then 
insert the data disk (the disk with DCU and all of your DCU 
files on it) and press RETURN. DCU will then save that disk's 
directory as a data file called DISK1. 

Repeat this procedure until all of your disks have been 
cataloged. Be sure to type in the correct disk number when 
cataloging. 

Searching for a File 

To get a complete directory, type D to get to the directory 
mode; then insert the data disk and press RETURN. You will 
then have several options. If you have a printer and want a 
printout of your directories, type Y when asked if you want a 
printout. If you don't have a printer, press N (or just hit RE- 
TURN, and DCU will default to nonprintout). 

Next, you will be asked if you want to search a particular 
range of disks. Type Y to specify a range. For example, if you 
type Y followed by 3,8 then DCU will search through direc- 
tories 3, 4, 5, 6, 7, and 8 for whatever filename you specify. If 
you want DCU to start with disk 1 and go on until it can't 
find any more files, simply press RETURN. 

You can also specify the file spec (name of the file) you 
are looking for. This is where you use the wild card symbol. 
Type in your chosen file spec; alternately, hit RETURN to dis- 
play all files from the specified disk range. DCU will display 
each disk number as it searches, followed by all files that 
match the file spec. When DCU has searched through all cat- 
alogs, or has finished the specified range, it will display the 
number of files found and RETURN you to the main screen. 
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Disk Catalog Utility 

For error-free program, read "The Automatic Proofreader" in Chapter I before typing in 
this program. 

HO 10 GRAPHICS 0:SETCOLOR 2, 12, 4: SETCOLOR 1,0, 

15: DIM D ( 1000) , SPEC* ( 17) , F$ ( 17) .FN* ( 15) : 

DSK=1 
JN 15 OPEN #1,4,0, " K: " 
00 17 ? " DISK CATALOG UTILITY 

":? "WILDCARD symbol ?":GET #1, WILD: IF W 

ILD=155 THEN W I LD=ASC < " * " ) 
A0 19 FOR 1 = 1 TO 38:? CHR$ (WILD) ;: NEXT I 
ID 20 CLOSE #2:7 :? "DISK CATALOG UTILITY CDCU 

3"s? "BY ANDREW GENSER":? :? "EATALOG DI 

SK" : ? 
Btl 2 2 ? "EIRECTORY" 

AF 40 ? » Hmg B 5BBaBBB H " 8 GET #1,K:IF CHR*(K)<>" 
C" AND CHR*(K)<>"D" THEN ? "{CLEAR} 
CBELLJD OR C":GOTO 40 

EH 50 IF CHR*(K)="C" THEN 3000 

if 60 rem eai3gaig£EMgiiaaBEEC 

CS 65 ? " CCLEAR3 CDOWN3 CDCU3 DIRECTORY" :FLS = 0:S 

ETCOLOR 2,15,4 
U 70 ? "Insert data disk, then hit [3MnSI":6ET 

#1 , K 
AF 75 ? "Screen output to printer (y/n)":GET # 

1,K:IF CHR*(K)="Y" THEN FLAG=l:GOTO 80 
PF 77 FLAG = 
m 80 ? "Disk range specs (y/n) " : GET #1,K: IF C 

HR*<K)="Y" THEN ? "Disk range ";: INPUT S 

TART,EN:GOTO 100 
Id 90 START=1 : EN = 99999 

JD 100 ? "File spec "; : INPUT SPEC* 
DL 105 IF SPEC*="" THEN SPEC* ( 1 ) =CHRt (WILD) :SP 

EC$(2)=".":SPEC*(3)=CHR$(WILD) 
EL 110 F$ = SPEC$: SPEC* ( 1 ,2) =" " : SPEC* ( 3 ) =F* : F* 



FN 120 FOR DSK = START TO EN 

HN 130 FN*="D: DISK" :FN*(7)=STR*(DSK) 

m 140 TRAP 605:OPEN #2, 4,0, FN*:? "{BELDDisk 

";DSK:TRAP 605: IF FLAG THEN LPRINT "DIS 

K ";DSK 
BD 150 INPUT #2:F*:I=3 
LN 152 REM 



FILENAME COMPflRISOM/SEfiRCI 



PK 155 IF F*(l,l)<>" " AND F* ( 1,1 )<>"*" THEN 6 

00 
HL 160 IF ASC (SPEC* ( I , I ) ) =WILD THEN I = I + l:GOTO 

500 
PI 170 IF SPEC* ( I , I ) =" . " THEN 500 
DO 180 IF SPEC* ( I , I ) OF* < I , I ) THEN 150 
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IJ 200 IF KLEN(SPEC*> THEN I=I+1:G0T0 160 

CO210 FLS=FLS+1:7 F*:IF FLAG THEN LPRINT F* 

GH215 GOTO 150 

W 499 REM l=*:4^;i>3^:»!rf.lSIJ:1:H.-T.]:»rr.lH*<:ia 

IA500 1 = 1 + 1 :L = LEN(F$) -6 

NK510 IF ASC (SPEC* ( I , I ) ) =WILD THEN 210 

EC 520 IF SPEC* ( I , I ) OF* (L, L) THEN 150 

PJ 530 IF KLEN(SPECt) THEN I = I + 1 : L = L + 1 : GOTO 5 

10 

DE 540 FLS = FLS+1:? Ft: IF FLAG THEN LPRINT F* 

GK 542 GOTO 150 

JP600 ? F*: CLOSE #2: NEXT DSK 

NJ 605 ? :? FLS;" File(s) found": IF FLAG THEN 

LPRINT :LPRINT FLS;" File(s) found" 

DC 610 GOTO 20 

EC 2999 REM ga 13 gnai HUH! gag 

Ift 3000 ? " (CLEAR* ": SETCOLOR 2 , 1 , 4 : SETCOLOR 1, 
0,15:7 " CDCU 3 CATALOG" : 7 :? "DISK # TO 
BE CATALOGED ";: INPUT DSK 
LC 30 15 FN*=" D: DISK" : FN* (7) =STR* (DSK) 
HA 3020 ? :? "INSERT DISK #";DSK;s? " THEN PRE 

ss Hmnai":GET #i,a 

HB 3045 OPEN #2 , 6 , , " D : * . * " : I =0 

YM 3050 TRAP 3500: GET *2,K 

NA 3052 D ( I ) =K: 1 = 1 + 1 : GOTO 3050 

OS 3500 D ( 1 + 1 ) =0: CLOSE #2:7 :? "INSERT DATA DI 

SK-HIT RETURN":GET #l,A:OPEN «2.B,0,FN 

*: 1=0 
KI 3505 TRAP 3600:7 CHR* < D < I ) ) ; : PUT #2,D(I):I= 

1 + 1 
JL3510 IF D<I)=0 THEN 3600 
ME 35 15 GOTO 3505 
HH 3600 7 "CATALOG COMPLETE CBELLi ": CLOSE *2:GO 

TO 20 
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Diskovery 

John C. Waugh 



Would you like to know what's really hidden beneath the 
dull brown exterior of your disks? "Diskovery" will help you 
find out. Requires a disk drive and Atari DOS 2.0S. 

What's on an Atari disk? One way to find out is to use the 
DOS directory. That won't tell you much, though, just names, 
lengths, and free sectors. And it won't tell you anything if it's 
not a DOS-made disk. To really find out what's on it, you'll 
have to diskover it — and this program will give you the tools 
you need. It will provide you with the ability to change disk 
memory directly. 

Be careful using this program. Be sure to have a backup of 
any important programs on another disk before trying the ex- 
amples in this article. 

The Problem 

The problem was simple to begin with. A friend had brought 
me a disk with a problem: There were two versions of a pro- 
gram on it, but both had the same name. Both appeared on 
the DOS directory listing, although with different lengths. 
COPY and LOAD would get only the first and older version 
of the two. And even the rename option of DOS would re- 
name both programs simultaneously, to the same new name. 
We didn't try the delete file option, for fear of losing both. So, 
knowing something about Atari's direct disk access, I wrote a 
short and simple program to fix the problem. That was the 
kernel from which the current program grew. 

Atari DOS accesses disks a sector at a time. However, that 
can also be done independently of DOS by setting up certain 
pointers in the disk control block (DCB) section of memory 
and calling the operating system (OS) to do the dirty work. 
The DCB and OS do not need the DOS loaded in with this 
method. Look at lines 8010 to 8100 in the program. This is the 
subroutine to do direct disk access. Here's how it works. 

A buffer area must be set up to hold the contents read 
from a disk sector, or to be written to a disk sector. This buffer 
should be 128 bytes long since there are 128 bytes per sector. 
BUF$ is used in this program. Line 8010 identifies the begin- 
ning of the DCB, which occupies memory locations 768-779. 
POKEing a 1 into the second byte (BLK + 1) specifies access to 
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drive 1. The variable FUN in line 8020 is set by the calling 
routine; 82 decimal means a read sector command, and 87 will 
cause a sector to be written to the disk. 

In order to read into the buffer, or write from it, the ad- 
dress of the buffer area must be placed in BLK + 4 and BLK+5 
in low byte/high byte format. This means that BLK + 5 will 
contain the high part of the address, the number of times that 
256 will go into the address. This is expressed as 
INT(ADR(BUF$)/256). BLK + 4 should have the low part of the 
address, the remainder from division by 256, given by 
ADR(BUF$)-256*(high part). This low byte/high byte ad- 
dress format is standard on the Atari and other 6502-based 
microcomputers. 

Next, the sector number to be accessed must be broken 
up into low/high form and placed in BLK + 10 and BLK + 11. 
The sectors are numbered from 1 to 720. Some of the sectors 
are used for the directory, boot-up, and so on, so DOS will 
show only 707 free sectors on an empty disk, although all sec- 
tors can be accessed with this program. 

Now it's time to call the operating system. Located at 
hexadecimal address $E453 (decimal 58451) is the subroutine 
that will either write the buffer to the specified disk sector or 
read the sector contents into the buffer. To call this subroutine 
you need to do an assembly language JSR, so a short machine 
language routine is in order. Line 8080 initiates the short ma- 
chine language program that was put in DSKINV$ by lines 
205 and 210. Essentially all this does is JSR to $E453, then re- 
turn to BASIC with an RTS. After return, if there was a prob- 
lem reading or writing a sector, an error code is placed in 
BLK + 3 (the value 1 indicates no error). Line 8080 also puts 
this code in the variable NR for use in lines 8086 and 8090. 

Looking at the Disk 

Now that you know how direct disk access can be achieved, 
look at the main program. When you have the program entered, 
save it before running it. Put into your drive a disk that has a 
lot of varied DOS files on it— perhaps an AUTORUN.SYS, a 
machine language object program, a LIST/ENTER program, 
and some SAVE/LOAD programs. Of course the DOS. SYS 
and DUP.SYS files themselves would be nice to look at too. 

Run the program, and a menu will appear. Push the SE- 
LECT button. If all is well, you should be able to toggle the 
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screen background between normal blue and green (or blue 
and darker blue, depending on your TV). When the screen is 
green (or darker blue), whatever is on the screen will be 
dumped to a printer, assuming that a printer is on-line. At any 
point in the program run, regardless of what it is doing, you 
can toggle between printing and nonprinting modes. That will 
not interrupt a screen dump already in progress, but any nor- 
mal keyboard key will. The toggle is done using a vertical 
blank interrupt. More on that later. 

Select a normal blue screen (for nonprinting) for now. 
Choose option 2 and press RETURN. This option allows you 
to look at the contents of a sector in a special way; the pro- 
gram will assume that you are looking at one of the sectors 
from 361 to 368, and will display the data accordingly. In re- 
sponse to the sector number prompt, enter 361, to look at the 
first directory sector. You will hear the beep from the TV 
speaker as the sector is read, and then the bytes in the sector 
are displayed as characters on the screen. Directory sectors are 
arranged in sets of 16 bytes, each set being the information 
about one file listed in the DOS directory. Probably DOS. SYS 
and DUP.SYS will be among those shown on your screen. 

DOS refers to programs or file entries by number, the first 
one being up to a maximum of 64 files (note that the maxi- 
mum file number is thus 63). The display is arranged in 8 
lines of 16 bytes each, so that each directory entry appears on 
a separate line. Notice the first byte of a typical directory en- 
try. An uppercase B indicates a normal file that is ready to 
use, so a first byte of 66 (the ATASCII value for B) tells DOS 
that this file is OK and ready to go. A locked file has bit 5 of 
the first byte set (a 1, or on bit); locked files will appear on the 
directory dump as a lowercase b. If bit 7, the topmost bit, of 
the first byte is set, then the file is considered deleted from the 
directory by DOS. Its directory space is up for grabs, and will 
be overwritten by the next new file saved on the disk. If a file 
has been deleted using the D option of DOS, as long as no 
new files have been saved over its directory entry, the file can 
be undeleted and gotten back. 

Undeleting 

Let's try an example of that, to see if you've really entered the 
program without any errors. Write some dummy program, like 
10 REM, and save it on disk. Go to DOS and list the directory. 
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Now use the D option to delete the dummy file; a directory 
listing will no longer show it. Go back to BASIC and load in 
the "Diskovery" program. Run it, and choose option 2 again. 
Look at sector 361. If there are many files on the disk, you 
may have to look at more sectors, perhaps up to sector 368, to 
see the dummy program; by pressing RETURN a couple of 
times, you'll get back to the main menu to select the next sec- 
tor. Do this until you find the sector with the dummy pro- 
gram — it will show up even though it was deleted. 

Now press RETURN once more to get the change sector? 
prompt. Answer Y, then type C for the next prompt, so you 
can insert bytes into the sector as characters rather than as 
numbers. Type 1 for the number of characters to change. For 
the starting byte prompt, determine which byte is the first one 
in the dummy file. This will be an inverse heart (CHR$(128)) 
indicating a deleted file. The byte number range for each entry 
is given on the left side of the screen. 

Enter the number of the starting byte. The program will 
ask for one character to insert. Type a B, then type Y for the 
next prompt, to actually carry out the change. You will hear a 
clunk sound as the modified sector is written out to the disk, 
and a beep as it is read back in and redisplayed. There should 
be a B as the first byte of the dummy file entry. The dummy 
has been undeleted. To check, try loading the dummy, or go 
back to DOS and look at a directory listing. 

Protecting the File 

Although the dummy file is now available for loading and 
saving, its sectors have not been protected in the usual DOS 
way. Thus, future programs might save over them. To protect 
it for now, save it under a new name (or under the same 
name). DOS will mark the sectors as in use. 

A similar method was used to solve the original problem 
that led to this program. Two files had exactly the same direc- 
tory name, so I simply modified the name of the first to be 
different from the second. That way, DOS would recognize 
them as different files. Voila! The lost file was recovered. 

Invisible Files 

As you can see in the directory, the filename extender is sim- 
ply the characters in the last three spaces allocated for the file 
entry. You can change the characters in a filename with 
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interesting results. For example, run option 2 again and choose 
the change sector option. Choose N this time, for inserting 
numbers. Type 1 to insert just one number. Now use the 
dummy file again, and use one of the bytes in its name for the 
byte to change. Change it to value 125, then type Y to modify 
the sector. ATASC1I value 125 is the clear screen character, 
displayed in the sector dump as a bent arrow. If you were to 
go to DOS and request a disk directory now, when the 
dummy filename goes on the screen, it would clear the screen. 

You can't load the dummy file with this modified name 
because CHR$(125) isn't a legal filename character. However, 
DOS will not consider the dummy file sectors to be available, 
so they are protected from being overwritten. You have cre- 
ated a file that cannot be loaded or run without modification 
of its name. With the proper choice of control characters (for 
instance, CTRL-back arrow), you can name a file so it doesn't 
appear on the listing at all. 

Here's something else to try. Make another short dummy 
and save it as the first program on a blank formatted disk. 
Then save a few more programs (or copies of the dummy) un- 
der other names. Run the Diskovery program, use option 2 to 
look at sector 361, and use the change option with number 
insertion eight times to insert the following numbers at the 
beginning of the dummy file entry area (start at the beginning, 
not at the filename): 66,1,0,4,0,88,156,155. Then change the 
remaining eight bytes of that directory entry to spaces. You 
can use the number insertion option, with multiple-byte inser- 
tion, since they are all the same number. The number 32 
represents the ATASCII character for blank space. 

Now to the DOS. List the directory; nothing appears at 
all. You can still load, run, and save programs normally — but 
only if you know the right names. 

If you've followed all this, you might wonder why, when 
the sector contents are displayed onscreen, the CHR$(125) is 
displayed as a bent arrow, rather than clearing the screen. 
There is a POKE to make the computer display command 
characters instead of performing their commands. It is found 
in line 1047 (POKE 766,1). POKE 766,0 will return you to the 
normal mode. Try POKE 766,1 in direct mode and try editing 
the screen with the CTRL arrows. 

Using option 2, directory dumps also show more infor- 
mation about a file. Stored in the bytes between the first byte 
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and the first name byte are four bytes that contain the starting 
sector number of the file and the length of the file in sectors. 
This information is stored in low/high format, as previously 
explained. With option 2, the interpretation of these bytes is 
displayed on the right side of the screen. 

Other Options 

Let's have some fun with the other options. Examine the 
directory sector that contains the DUP.SYS file entry, the Disk 
Utilities Package. Note what sector it starts with. Now go back 
to the main menu and choose option 1. Specify the sector that 
DUP.SYS starts with. Enter the choice for character dump, and 
you will see the first DUP.SYS sector displayed in character 
form. Somewhere in this sector you will see the text that is 
shown at the top of the screen when DOS gets control. Using 
the sector-changing options, you could put in your own string 
of characters so that whenever you go to DOS, your own cus- 
tomized message would be displayed. 

Also note that the computer beeps several times during 
the display. This is because there are several bytes in the file 
with value 155, the code for the RETURN key being pressed. 
These have no character representation, even with POKE 
766,1, so they would normally disrupt the screen display with 
line returns. To avoid this, the program detects them, beeps 
the speaker to let you know about them, and puts an inverse 
asterisk onscreen to mark their location. This is done by line 
1067. It is necessary to POKE 766 back to normal to get the 
computer to beep, then POKE 766 again to display control 
characters for the rest of the dump. 

Each sector on the disk is 128 bytes long. However, if the 
sector has been filled by the Atari DOS, only 125 of those sec- 
tors are used for actual data in the file. The other three bytes 
contain housekeeping information. Byte 126 has, in six of its 
bits, the file number that the sector is associated with. Thus all 
sectors that are a part of the second directory entry file will 
have the number 1 (remember that file references start at file 
0, not file 1). 

Stored in the other two bits of byte 126, and in eight bits 
of byte 127, is the forward pointer. This tells which sector is 
next in line in that particular DOS file. Sectors associated with 
a certain DOS entry do not have to be next to each other 
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(contiguous) on the disk. Each one contains a reference to the 
next one in line. We'll see an example of that in a moment. 

Byte 128 contains a count of how many bytes are unused 
in that sector. Thus, if a sector is the last one in a particular 
file, it may not be full. DOS needs to know how many bytes 
are unused, so it doesn't load the remaining garbage into the 
computer as part of the file. Bytes 125-128, then, are used in 
this program to compute the information given at the bottom 
of the sector dumps: file number, forward pointer, and extra 
sector bytes. 

Option 3 on the main menu will automatically trace 
through a specified DOS file, sector by sector, following the 
forward pointers. Find the starting sector of the DUP.SYS file. 
Run the trace option with its first sector as the starting one. 
Now a menu appears with either auto trace or pause as an op- 
tion. Pause means the computer will wait for a keypress after 
each sector is displayed before going on. With auto trace, the 
sectors will go by automatically until the end of the file. If you 
have a printer on-line, each sector dump will be printed before 
going to the next one. 

For this example, choose the pause option. Choose charac- 
ter dump next. You will see the sectors of the DUP.SYS file 
successively displayed. Some of the information, such as the 
DOS menu, will be intelligible. Trace could also be used to 
look through stored programs. If a program has been saved, 
much of it will look like garbage since it is in tokenized form. 
However, if a program has been LISTed to disk, it will be 
readable since it is in straight ATASCII form. Looking at a 
LISTed program, you will see the regular program lines, fol- 
lowed by a beep, and the inverse asterisk character. This is the 
return code (155) for the return keypress after each physical 
program line. 

Option 6 will give you a table of all the sectors used by a 
given file, if you supply the starting sector. In many cases, the 
sectors will not be sequential. 

Similar to the file trace is main menu option 4. This is 
used to look at a block of contiguous sectors by inputting the 
starting sector and the number of sectors. This will not follow 
the linked list method of the trace; it will ignore forward 
pointers. 

Since DOS-created sectors all contain the number of their 
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associated directory entry, it is possible to make a map of the 
disk, marking each sector with the file that it is linked to. This 
is just what option 5 does. Run it, with a disk that has a lot of 
files on it and has been well used with resaving and reloading. 
It takes a few minutes to map all 720 sectors. If you have a 
printer, you might want to toggle into print mode to save a 
copy of the map for future reference. 

The file ID number of each sector is read in turn, and a 
single character is put on the map: a for file 0, a 1 for file 1 
(the second entry), and so on. After file 9, uppercase alphabet 
characters are put in, A-Z, then lowercase a-z. Since there are 
64 possible filenames per disk, there could still be two files 
after z. These will be the next ATASCII characters, numbers 
123 and 124 on Appendix page C-3 in the Atari manual. Also, 
if a bad sector is found, it is displayed as an asterisk. Bad sec- 
tors are often used as a protection device on commercial disks. 

Most sectors on a partly full disk will probably be zeros. 
This doesn't mean they are part of file number — they just 
don't have anything in them. To find out which of those sec- 
tors are really part of file 0, use option 3 or 6. 

Since file sectors for a given program do not have to be 
contiguous, it may be that a much-modified program is spread 
all over the disk. For example, suppose you write and save 
programs A, B, and C in that order. They are stored sequen- 
tially on the disk, with so many sectors per file (say 10 each). 
Then you go back and modify program A, adding some lines 
so that it takes up 15 sectors. When it is saved, DOS will still 
use the first 10 sectors — but it will also take 5 more, the first 5 
available after the sectors for program C. So the file linkage 
map becomes A-B-C-A. 

Then you might modify program C to give A-B-C-A-C, 
and so on. With a heavily modified disk, programs are here, 
there, and everywhere. The sector linkage map will show this. 
All this splitting up makes the disk more prone to LOAD and 
SAVE errors, since the driver has to jump all over the disk for 
a given file. It is also slower. Duplicating the disk will still re- 
tain the same organization on the new one, but using the 
COPY option of DOS, with filename *.*, file sectors will all be 
placed contiguously on the new disk, making it more reliable. 
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DOS Sector Map 

Since file sectors can be dispersed on a disk, you might won- 
der how DOS keeps track of what sectors are in use (and thus 
should be protected from overwriting). It would be impractical 
to check all sectors for each SAVE. Instead, DOS maintains a 
sector map of the disk, updated with each new modifying op- 
eration. This map, a bitmap, is stored in sector 360. Thus sec- 
tor 360 is a special reserved sector, created during formatting. 
360 was chosen since it is near the middle of the disk, and so 
has a short average access time. That is important, since it is 
accessed during each data saving operation. 

Run main menu option 1. Type in 360 for the sector. 
Choose option 4 (which only appears for a sector 360 choice), 
a hex map of sector 360. It takes a few seconds for the conver- 
sion of numbers to hexadecimal, so be patient. You will then 
see the contents of sector 360 displayed in hex. Probably this 
will be mostly F's and 0's. 

Zeros indicate sectors that are in use (or thought to be in 
use by the DOS). Actually each marks four sectors in use, 
since this is a bitmap. Each set of two hex digits represents 
one byte. A byte is eight bits, so each two hex digits represent 
eight sectors on the map. F is the hex digit for decimal 15, 
which in binary is 1111. Free sectors on a disk are shown as 
l's, so FF means that there are eight free sectors. C in hex 
equals 12 decimal, which is binary 1100. Thus a C on the map 
means two free sectors followed by two in-use (locked) sec- 
tors. In-use sectors are locked out from use by the DOS, 
whether or not this locking was done by the DOS or by some 
other method (for example, this program). Thus, you can re- 
serve space which will never be touched by DOS. 

It may take a while to get used to reading the sector map 
if you are not familiar with hexadecimal numbers. To help, 
decimal numbers that show what sector is represented by the 
last bit of the last number on that line are listed on the right 
side of the screen. You can count backwards to identify the 
other sectors. 

Locked Sectors 

Format a new disk and leave it blank. Load and run 
Diskovery, then put the blank disk back in. Choose main 
menu option 9, lock/unlock sectors. Start at sector 700 and 
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specify four sectors. Specify lock. When the beeps stop, go 
back to the main menu and choose option 1; then select op- 
tion 4 for a hex map of sector 360. Notice that not all of sector 
360 is used for the hex map. Also notice that the map does 
not start at byte 1 of sector 360. Although the sector identifier 
on the right of the map goes up to sector 751, that is just a 
reference number. Actual disk sectors end with 720. 

Sector 360 also contains this information; bytes 4 and 5 
have the free sector count that is used on the DOS display. It 
is stored in low/high form. Take the value of byte 5 times 
256, add the value of byte 4 (do a decimal dump of sector 360 
if you're uncertain about hex), and the result is the free sector 
count of the disk. This number is updated as needed by the 
DOS, and also by the Diskovery program. 

Note the values of bytes 4 and 5 from the map of your 
blank test disk with the four sectors reserved. It should come 
out to 707 — 4, or 703. Go back to the main menu and run op- 
tion 8. Leave the same disk in as both source and destination 
disk. 

Specify sector 690 as the starting point. You will hear 
various beeps and clunks. When it's done, run a disk map of 
sector 360 to see the lockouts. What has been done is that sec- 
tors 360-368, the DOS directory sectors, have been copied and 
protected, starting at sector 690. Run a sector dump of 690 to 
verify this — it should be a copy of the disk bitmap. 

If an error is made saving a sector in an individual file to 
the disk, only that file is lost. However, if an error is made 
saving a directory entry or the bitmap, it may make all pro- 
grams on a disk inaccessible. If you have a copy of these sec- 
tors, though, you could put them back aright, making the disk 
healthy again. Thus option 8 can be used to give some measure 
of protection for important disks, by saving the directory sectors 
elsewhere on the disk in case they are needed. You could also 
save directories from a number of disks on a separate directory 
backup disk. Although the sectors might not be absolutely cur- 
rent if a lot of changes have been made, they will usually 
allow many otherwise lost programs to be recovered. 

Copying Sectors 

Since the sector 360 bitmap is resaved every time a SAVE is 
done, it is the most likely one to go bad. Check for garbage in 
sector 360 on a problem disk. You may be able to modify it, 
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or to copy sector 360 from a full disk to protect all sectors. 
Option 7 on the main menu allows you to copy single sectors 
from anywhere to anywhere, on the same disk or to other 
disks. The bit map will also be updated with this option. 

The last option on the main menu, 10, will allow you to 
use the various features of Diskovery to examine the comput- 
er's main memory, instead of disk storage. For example, select 
this option and give 42240 for the start of memory to look at. 
You may then enter the number of sequential 128-byte blocks 
to dump. Memory will be displayed in 128-byte blocks, since 
this option uses the same routines as the sector dumps and 
each sector is 128 bytes long. 

Next indicate either automatic sequential dumps or pause 
between blocks. Finally, specify the type of display. Remem- 
ber that a hex display will take longer to do the conversions 
than the others. With a starting location of 42240, and a 
character dump, you will see some of the BASIC keyword 
identifiers, since you are looking into the brains of the BASIC 
cartridge. Somewhere in main memory, you could also find 
the actual lines for the Diskovery program since it is currently 
loaded in. Look at memory starting at 1536 to see the machine 
language routine to toggle the print mode. Those numbers in 
decimal should be the same as the DATA items on lines 230 
and 231 in the program listing. 

Use this program with caution. Misuse can really scramble a 
disk. But proper use will allow you to rejuvenate sick disks 
and to perform nice non-DOS tricks. Either way, you'll learn a 
lot in the doing. 

Diskovery Variables List 

BIT$ Lookup table of decimal numbers with successive bits 

set. 
BLA$ String of blanks for erasing screen text. 

BUF$ Buffer area used to store information from a sector, or to 

be sent to a sector. 
DSKINV$ Calls the OS subroutine for disk access. 
G$ Holds Y or N for user response. 

H$ Stores BUF$ contents after hex conversion. 

HEX$ Lookup table of hex digits for conversion. 

KNOT$ Machine language routine to logically NOT a number. 
ND$ Logically ANDs a number with another number. 

OAR$ Logically ORs a number with another number. 



239 



Chapter 5 



VB$ Machine language routine to initialize the vertical blank 

routine set up on page 6. 

AP Decision for auto trace or pause. 

B Temporary variable for reading data into strings. 

BIT ATASCII value of BIT$(BITMOD). 
BITMOD Index to BIT$. 

BLK Start of disk control block in memory. 

BN Bytes of same number to insert into BUF$. 

CN Number of characters to insert into BUF$. 

FN File number from sector data. 

FP Forward pointer to next file sector. 

FUN Holds function number for disk access routine. 

H ATASCII value of BUF$ characters to convert to hex. 

HH High byte of H. 

HL Low byte of H. 

I Loop index variable. 

J Temporary storage and loop index. 

K Byte from screen in printer dump routine. 

LK Choice variable for lock/unlock options. 

M Temporary storage of PEEK values. 

MEM Pointer to memory block for dump. 

N Index variable to H$. 

NB New byte value to insert into BUF$. 

NFRE Number of free sectors from sector 360. 

NFREH High byte of NFRE. 

NFREL Low byte of NFRE. 

NR Error number for bad sector read. 

NSL Number of sectors to lock/unlock. 

NUM Number of sectors or blocks to look at. 

P Byte from keyboard to continue at keypress. 

PK Variable for temporary PEEK value storage. 

Q USR function dummy variable. 

RSLT Result of logical operation subroutine. 

SEC Sector to access. 

SECHI High byte of SEC. 

SECLO Low byte of SEC. 

SS Starting sector for operations. 

SSH High byte of SS. 

SSL Low byte of SS. 

TY Type of dump requested. 

WH Main menu choice. 
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Diskovery Subroutines List 

100-260 Initialization. 
300-770 Main menu and submenus. 
660-670 Look at memory instead of disk. 
780-1000 Handling some menu choices. 
1040-1105 Character dump. 
1106-1160 Change a sector. 
1200 Erase text. 

1400-1440 Copy sector option. 
1600-1640 Backup directory option. 

1700-1799 Lock and unlock sectors on bitmap, and update free sec- 
tor count. 
1800-1840 Single file map options. 
2010-2200 Sector linkage map option. 
3000-3060 Screen dump to printer. 
4040-4060 Hex conversion. 
4205-4240 Hex dump. 
5015-5060 Decimal dump. 

7010-7100 Determine file number and forward pointer. 
8010-8100 Read/write file sector. 

Diskovery 

Caution: The misuse of this program can destroy valuable 
programs; please read the accompanying article before using 
Diskovery. 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

jfi 10 REM LISTING 1 

DO 100 REM DISKOVER.Y *** BY JOHN C. WAUGH -- 

4/83 *** 
ON 105 CLOSE #2: OPEN #2 , 4 , , " K : " : CLOSE #4: OPEN 

#4, 12, 0, "S: " : POKE 766, 
MI 200 DIM BUF* ( 130) , DSKINV* ( 10) , G* ( 1 ) , ND* ( 12) 

, HEX* < 1 6 > , H* ( 1 155) , BLA* ( 38) , VBtd 1 ) ,BIT 

* <8) , OAR* (12) , KNOT* (12) 
GP203 HEX*="0 1234567S9ABCDEF":BLA*=" 

(37 SPACES}" 
B 205 DATA 104 , 32, 83, 228, 96 
HE 210 RESTORE 205: FOR 1 = 1 TO 5: READ B:DSKINV* 

( I ) =CHR* (B) : NEXT I : REM PLA.JSR *53*E4 ( 

DSKINV) , RTS 
FH215 DATA 104,104,104,133,209,104,104,37,209 

, 133, 209, 96 
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JE 220 

fip 225 

fiC 230 
AG 231 



EE 240 
W 245 

FE 250 
EL 260 

CE 300 



BP 3 1 
EJ 315 

m 320 

Hi. 325 
FE 330 
FB 335 
ii 34 
PP 345 
NI 350 
FN 35 1 
EF 355 
SH 360 

PJ 375 

EL 376 

FE 400 



IK 430 
GH 440 
PN 450 

IK 4 80 



ESTO 
> =CH 
, PLA 
AR* = 
<B) = 
OR F 
ATA 


ATA 

198 

2 2 

ESTD 

35+1 

& T 
ATA 
ESTO 
CHR$ 
= USR 
= 128 
: NEX 
M = 2 3 
ANDA 

THE 

" 1 = 



-4 = 

"5 = 
"6 = 
"7 = 
"8 = 
"9 = 

" 10 

: IN 

N WH 

0,16 

CHR 

ATIO 



INPU 

CHR 
= 36 

SEC 
F WH 
OTO 

CHR 
T TR 

CHR 
: INP 
UT S 



RE 2 
R* (B 
, PLA 
ND* : 
CHR* 
UNCT 
72, 1 
8, 8, 
173, 

8 

RE 2 
, B: N 
EXT 
1 04 , 
RE 2 
(B) : 
(ADR 
: FDR 
T I 
: POS 
RD D 

DIR 
LOOK 
LOOK 
TRAC 
LOOK 
SECT 
SING 
COPY 
BACK 
LOCK 
= LOO 
PUT 

GOT 
00, 1 

* ( 1 2 
N" ; : 
"# O 
T NU 

* ( 1 2 
1 - 



1 5: F 
) : NE 

, AND 
OAR* 
(69) 

69, 8 

173, 

255, 

?08, 5 

30: F 
EXT 

162, 

4 : F 
NEXT 
(VB$ 

1 = 1 

ITIO 

05 D 
ECTO 

AT 

AT 
E FI 

AT 
OR L 
LE F 

SEC 
UP D 
/UNL 
K AT 
WH 

4 
700, 
5) : ? 

1 N p U 
F 12 
M: GO 
5) : ? 
368) 



OR 1=1 TO 12:READ B:ND*(I, 
XT I: REM PL A , PL A , PL A , ST A20 
209, STA209, RTS 

(8) = CHR* <5> : KNOT*=ND*: KNOT 
:REM CHANGE AND TO OR AND 

,14 1,31, 208 , 173,31,208,201 
255, 6, 73, 255, 141 , 255, 6 
6,20 1, 255, 240, 7, 1 69, 1 48, 1 4 
, 169, 162, 141 , 198.2, 10 4,76, 

OR 1=1 TO 44: READ B:POKE 1 
I : REM SEE ASSEMBLER LISTIN 

6 , 16 0,0, 169,6,32,92,223,96 
OR 1=1 TO 1 1 : READ B:VB*(I> 
I 



=2 THEN 
600 

$(125) : ? 
ACE" ; : IN 
* ( 125) : ? 
UT SEC2: 
EC1 



) ) 
TO 8: BIT* ( I ) = CHR* ( J ) : J=J / 

N 0,0:? CHR* ( 1 25) ; " (ON A S 
ISK":? "SECTORS 36 1-363 AR 
RY) " : ? : ? 
SECTOR" 

SECTOR AS DIRECTORY SEC" 
LE BY HAND" 
BLOCK OF SECTORS" 
INKAGE MAP OF DISK" 
ILE MAP" 
TOR" 

I RECTORY" 
OCK SECTORS" 
MEMORY" 

, 400 ,450,480,2010, 1800, 14 
375, 1900 

:? :? "STARTING MEMORY LD 
T MEM 

8 BYTE BLOCKS TO LOOK AT"; 
TO 500 

:? :? "(DIRECTORY SECTORS 
":? :? "WHAT SECTOR ";: I NPU 

TY=l:GOTO 720 

!*? :? "WHAT SECTOR TO STA 
PUT SEC: GOTO 500 

:? :? "NUMBER OF SECTORS" 
? :7 "STARTING SECTOR";: IN 
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AB 500 ? CHR*(125)S? :? !? " 1 = ALITO TRACE":? "2 

=PAUSE":? : INPUT AP 
BF 600 ? CHR$(125):^ :? :? "TYPE OP DISPLAY:": 

? :? " 1 =CHARACTER" : ? :? " 2 = HE X ADEC I M AL " 

: ? : ? "3 = DEC I MAL " 
AL 605 IF SECO-360 THEN ? : INPUT TY:GDTO 650 
CA610 ? :? "4 = SECT0R 360 HEX MAP":? : INPUT TY 
GK 650 IF WHO10 THEN 700 
11 660 LM=12:? CHR$ ( 1 25 ) : SEC= 1 : F OR M = MEM TO ME 

M+128* (NUM- 1 ) STEP 12S:POSITION 2,0!? " 

MEMORY STARTING AT ";M 
ID 670 FOR PK = 1 TO 128: BUF$ (PK) =CHR$ (PEEK (M + PK 

-1) ) :NEXT PK:GOTO 735 
LF 700 IF WH = 4 THEN FOR SEC = SEC1 TO SEC1+SEC2- 

1 
JP 720 BUF$(128)=" ":FUN=82:REM GET SECTOR 
00 730 GOSUB 80 1 
HN 735 REM HOLD PLACE FOR FUTURE DISASSEMBLER 

LINK 
A3 740 ON TY GOSUB 1040,4040,5015,4040 
DJ 765 IF WH=10 THEN 840 
DP 770 IF WH<>2 THEN 800 
IL 780 ? :? "DIRECTORY ENTRY BYTES: ":? :? "STA 

RT + 0=FLAG" s ? " (66 /NORMAL; 123/DELETED; 98 

/LOCKED; etc ) " 
DJ 790 ? "START+1 , 2=SECTOR COUNT LO/HI 1 *!? "STA 

RT+3 , 4=START ING SECTOR LO/HI" 
HI 800 GOSUB 7010: REM GET FILE # AND FORWARD P 

OINTER (FN AND F P > 
CJ810 POSITION 2,20:? "FILE NO.. = "; FN: POSIT I 

ON 2,21s? "FORWARD POINTER TO SECTOR "; 

FP 
LL 820 POSITION 2,22:^ "EXTRA SECTOR BYTES = " 

; 125-ASC(BUF*(128) ) 
L0 840 IF PEEK ( 1 79 1 ) =255 THEN GOSUB 3000 
DC 845 IF AP=1 THEN GOTO 920 
BC 850 POSITION 2,23:? "ANY KEY TO CONTINUE";: 

GET #2, P: GOSUB 1105 
PD 920 IF WH=3 AND FP = THEN POSITION 2,23:? B 

LA* ;: POSIT I ON 2,23:? "END OF TRACE"; : AP 

=2:WH=1:G0T0 850 
PB 930 IF APOl THEN POSITION 2,21:? BLA$:POSI 

TION 2,21:? "PRESS ANY KEY TO CONTINUE" 

; : GET #2, P 
CI 935 IF WH=10 THEN NEXT M 
CE 940 IF WH=3 THEN SEC = FP:GOTO 720 
IG 950 IF WH = 4 THEN NEXT SEC 
IN 1000 GOTO 300 
IN 1040 IF WH=10 THEN 1047 
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JC 


1045 


PL 


1047 


MJ 


1060 


JiH 


1065 


DL 


1067 


FO 


1069 


FB 


1070 


BC 


1071 


KF 


1072 


KH 


1073 


LN 


1075 


LA 


1078 


OH 


1 103 


MF 


1 105 


IH 


1 106 


DA 


1 107 


HP 


1110 


IC 


1112 


LE 


1114 


NC 


1 1 16 


HO 


1118 


EL 


1 120 


OE 


1 122 


PA 


1 1 30 


LH 


1 142 


KI 


1 144 


CF 


1 146 


KG 


1 148 


tic 


1 150 


BF 


1 160 
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POSITION 0,0:? CHR* ( 125) : "SECTOR #"-,SE 

C; " ( BEEP = r:?afciiJ:i: CODE AT S3)":? 

POKE 766, 1 

? "BYTE","0 2 4 6 8 A C E { 3 SPACES3SST 

LTH":? :FOR 1=1 TO 8 
? 16* ( 1-1 ) ; " -" ; 1 6* 1-1 , : FOR J=0 TO 15: K 
=16* ( I -1 ) +1 +J 

IF ASC (BUF* <K, K> ) =155 THEN POKE 766,0: 
? CHR* (253) ; "53" ;: POKE 766,l:GOTO 1070 
? BUF* (K, K) ; 
NEXT J 

IF SEC<361 OR SE0368 THEN ? :GOTO 107 
5 

POSITION 30,3+1:? 256 * ASC ( BUF* < 1 6 * ( I - 1 
>+5))+ASC(BUF*(16*(I-l)+4) ) 
POSITION 35,3+1:? 256 * ASC < BUFt ( 1 6 * ( I - 1 
)+3) )+ASC<BUF*<16*(I-l)+2) ) 
NEXT I : POKE 766 , 
RETURN 

IF PEEK ( 1791 ) =255 THEN GOSUB 3000 
IF WH=10 THEN POP :GOTO 935 

FOR 1=0 TO 3:POSITION 2,20+1:? BLA*;:N 
EXT I 

GOSUB 1200:? "CHANGE SECTOR (Y/N)";:IN 
PUT G1:IF B*<>"Y" THEN RETURN 
GOSUB 1200:? "INSERT # (N) OR CHARACTE 
RS (C) " ; : INPUT G* 
IF G*="N" THEN 1130 
IF B*< >"C" THEN 1110 

H*=" ":GOSUB 1200:? "HOW MANY CHARACTE 
RS TO CHANGE" ;: INPUT CN 

GOSUB 1200:? "START AT WHICH BYTE";: IN 
PUT BYTE 

GOSUB 1200:? "TYPE ";CN; " CHARACTERS T 
O BE INSERTED. .": INPUT H* 

BYTE=BYTE+l:BUF*(BYTE,BYTE+CN-l)=H*:GO 
TO 1150 
GOSUB 1200:? "HOW MANY BYTES TO SAME # 

" ; : INPUT BN 
GOSUB 1200:? "BYTE # TO BEGIN MOD. ";: 
INPUT BYTE: B=BYTE+1 

GOSUB 1200:? "OLD BYTE " ; BYTE ;"="; ASC < 
BUFt (B, B) ) ; 

? " II NEW BYTE " ; BYTE; "=";: INPUT NB 
FOR I=B TO B + BN- 1 : BUFS ( I , I ) =CHR* (NB) : N 
EXT I 

G*=" ":GOSUB 1200:? "TYPE *Y* TO MODIF 
Y SECTOR" ;: INPUT G$: IF B*<>"Y M THEN 11 
05 
FUN=87:G0SUB 8010:POP : GOTO 720 



Chapter 5 



OP 


1200 


POSITION 2,21:? BLA 
URN 


OB 


1400 


POSITION 0,0:? CHR* 
HICH SECTOR" ;: INPUT 
OURCE DISK, HIT ANY 


DH 


1410 


GET #2, P: BUF* ( 128) = 
10: SECT=SEC: ? :? "S 
ECTOR" ; : I NPUT SEC 


JA 


14 30 


? :? "INSERT DEST. 
GET #2 , P: FUN=87 : GOS 
:NSL=l:GOSUB 1710 


m 


1440 


? : ? "OLD SECTOR " ; 
NEW SEC ";SEC:^ :? 
GET #2, P: GOTO 300 


BK 


1600 


POSITION 0,0:? CHRt 

DISK W/DIR. TO SAV 

EY TO CONTINUE" : GET 


EH 


1610 


FUN=82:BUF*<128)=" 
360+I:GOSUB 8010:N= 
=BUF*:NEXT I 


m 


1620 


? :? "STARTING SECT 
; : INPUT SS: ? : ? "IN 
SH ANY KEY":GET #2, 


BC 


1630 


FUN=87:FOR 1=0 TO 8 
:BUF*=H*(N,N+127) :G 
=1 : NSL=9: GOSUB 1710 


OH 


1640 


? :? "DIR SAVED ON 
8:? :? "ANY KEY FOR 
300 


FC 


1700 


POSITION 0,0:? CHR* 
"2=UNL0CK":^ : INPUT 


EO 


1 705 


? :? :? "START AT S 
:? "HOW MANY SECTOR 


BE 


1710 


SEC=360:FOR 1=0 TO 
: FUN=82: GOSUB 8010 


LN 


1720 


S=SS+I:SSH=INT(S/8) 
SC(BUF*(11+SSH> ) :BI 
BIT* (BITMDD) ) 


CK 


1 722 


Q=USR(ADR(ND*) ,BIT, 

PEEK < 209) >0) OR (LK 

THEN 1795:REM ALRE 


BF 


1 725 


IF LK=2 THEN 0=USR( 
:RSLT=PEEK<209) :GOT 


FL 


1730 


Q=USR(ADR(KNOT*) ,BI 
9) :Q=USR(ADR(ND*) ,R 
(209) 


JE 


1735 


BUF*(ll-t-SSH)=CHR*(R 
4) >+256*ASC(BUF*<5) 
=NFRE-l:GOTO 1745 



*: POSITION 2, 21: RET 

< 125) ; : ? : ? "COPY W 

SEC: ? : ? " INSERT S 

KEY " 

" ": FUN=82: GOSUB 80 

AVE TO WHAT DEST. S 

DISK, HIT ANY KEY": 
UB 80 1 0: LK=1 : SS=SEC 

SECT; : ? " SAVED AS 
"ANY KEY FOR MENU": 

( 125) ; : ? : ? " INSERT 
E"S? "AND HIT ANY K 

#2, P 
":FOR 1=0 TO 8:SEC= 
128*1 + 1 : H* (N.N+127) 

OR TO SAVE DIR. AT" 
SERT DEST. DISK, PU 
P 

:SEC=SS+I:N=128*I+1 
OSUB 8010:NEXT I : LK 

SEC " ; SS; " TO " ; SS+ 
MENU":GET #2,P:G0T 

( 1 25) : ? "1 =LOCK" : ? 

LK 
ECTOR" ; : INPUT SS: ? 
S" ; : INPUT NSL 
NSL- 1 : BUF* (128)=" " 

:SSL=S-8*SSH:BYTE=A 
TMOD=SSL+l: BIT=ASC( 

BYTE ) : IF (LK = 2 AND 
=1 AND PEEK(209)=0) 
ADY RIGHT BIT 
ADR<OAR$) , BIT, BYTE) 
O 17 3 5 

T,255) :RSLT=PEEK(20 
SLT.BYTE) :RSLT=PEEK 

SLT) :NFRE=ASC(BUF* ( 
) : IF LK=1 THEN NFRE 
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LL 1740 NFRE=NFRE+1 

DE 1745 NFREH=INT (NFRE/256) : NFREL=NFRE-256*NFR 

EH 
BH 1750 BUF* <4>=CHR* (NFREL) : BUF* <5)=CHR*(NFREH 

) 
OJ 17 90 FUN = 87:G0SUB 8010 

PO 1795 NEXT Is IF WH = 7 DR WH = 8 THEN RETURN 
KG 1799 GOTO 300 
ND 1800 BUF*<128>=" ":N = 0: POSITION 0,0:7 CHR* ( 

125):? "FILE STARTS AT SECTOR"; : INPUT 

SEC: POKE 82,1: POKE 201,5:7 
ND 1810 FUN = 82:60SUB 8010:GOSUB 70 1 : N=N+ 1 : I F 

N=9 THEN N=l:7 :? "CUP}"; 
PL 1820 7 SEC, : SEC = FP: IF FPO0 THEN 1810 
CL 1830 POKE 82, 2: POKE 201,10:7 :7 :? "END OF 

MAP...": IF PEEK < 1791 ) =255 THEN GOSUB 3 

000 
LP 1840 POSITION 2,23:7 "ANY KEY";:GET #2,P:G0 

TO 300 
GG2010 7 CHR$ ( 125) : SEC=0: FUN=82: BUF* < 128) =" " 

:POSITION 1,23:7 "ANY KEY TO TERMINATE 

*■ . 
j 

EN 2020 POKE 764,255:P0KE 766,1:F0R 3 = TO 23: 

POSITION 1,J:7 J *30+ 1 ; " - " ; ( J + 1 ) *30 ; 
FE 2025 POSITION 9,J:F0R 1 = 1 TO 30:SEC = SEC+1 
HO 2030 IF PEEK (764) =255 THEN GOSUB 8010:GOSUB 

7010: GOTO 2038 
OP 2035 POKE 764,255:POP : POP : GOTO 2150 
PE 2038 IF NROl THEN 7 "*";:GOTO 2 100 
OC 2040 IF FN<10 THEN 7 CHR* < FN + 48 );: GOTO 2100 
LC 2050 IF FN>9 THEN IF FN<36 THEN 7 CHR*<FN + 5 

5) ; : GOTO 2100 
LC 2060 IF FN>35 THEN 7 CHR$(FN+61); 
AO2100 NEXT I: NEXT J 

OK 2150 IF PEEK ( 1791 ) =255 THEN GOSUB 3000 
OC2160 POSITION 2,23:7 BLflt ; : POS I T I ON 1,23:7 

"ANY KEY"; 
OD 2200 POKE 766,0:GET #2,P:GOTO 300 
iA 3000 POKE 764, 255: POKE 766,1: TRAP 3060: CLOS 

E #3:OPEN #3,8,0, "P:" 
IF 3020 FOR J = TO LM:FOR 1=0 TO 39 
OC 3030 POSITION I, J: GET #4,K 
EH 3035 IF K>127 THEN K = K-128 
PB 3036 IF K<32 OR K=127 THEN ? #3;"*";: GOTO 3 

045 
GP 3040 7 #3;CHR*<K); 
BD 3045 NEXT I:LPRINT :IF PEEK ( 764 ) =255 THEN N 

EXT J: GOTO 3050 
W. 3047 POKE 764, 255: POP : GOTO 3050 
«H 3050 LPRINT :LPRINT :LPRINT 
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HG 3060 POKE 766,0: TRAP 40000: RETURN 

EB 4040 FOR 1 = 1 TO 382 STEP 3 : H = ASC ( BUFt ( I NT ( I 

/3)+l) ) :HH=INT(H/16) :HL=H-16*HH: HH=HH+ 

1 : HL=HL+1 

DB 4 050 H*(I,I)=HEX*(HH,HH):H*<I+1,I+1)=HEX*<H 

L.HL) :H$(I+2, 1+2)=" ":NEXT I 
DO 4060 IF WH=10 THEN 7 -.GOTO 4210 
CD 4205 ? CHR*(125>:7 :? "SECTOR ";SEC;" HEX D 

UMP" : ? 
MG4210 FOR 1 = 1 TO 16:7 8* < I - 1 ) ; " - " ; S * I - 1 , Ht ( 2 

4* ( 1-1 ) +1 , 24*1 ) : NEXT I 
GJ 4220 IF TY = 4 THEN J = 47:FOR 1=5 TO 16:P0SITI 

ON 36,1:7 J ; : J= J +64 : NE X T I 
KK 4240 RETURN 

IK 5015 POKE 82,1: POKE 201, 5: REM COLUMN WIDTH 
HN5017 IF WH=10 THEN GOTO 5025 
DG 5020 POSITION 2,0:7 CHR* ( 1 25 );" SECTOR ";SEC 

; " DECIMAL DUMP" 
PD 5025 7 :7 , : FOR 1=0 TO 7:7 I „ CHR* < 30 > ; : NEXT 



16:7 8 * ( I - 1 ) , 

8:7 ASC (BUF* (8* ( I -1 ) +J ) ) , CH 

J : 7 

01 , 10: POKE 82, 2 



Q=USR(ADR(ND*) ,FP,3) 
FP = FP + ASC (BUF* ( 127) ) 
Q=USR(ADR(ND*) , FN, 25 



OF DISK CONTROL BLOC 



BLK+2, FUN 



GP 5030 FOR 1 = 1 TO 
FN 5040 FOR J=l TO 

R* (30) ; : NEXT 
AH 5050 NEXT I : POKE 
KL 5060 RETURN 
IH7010 FP = ASC <BUF* ( 126) ) 

:FP = PEEK <209) *256 
GE 7050 FN = ASC (BUF* ( 126) ) 

2) : FN=INT (FN/4 ) 
Kl 7100 RETURN 
HH8010 BLK = 768:REM START 

K 
DP 8020 POKE BLK+ 1,1: POKE 
PG 8040 ABUF = ADR(BUF*> :AHI = INT (ABUF/ 

BUF-256*AHI 
i 8050 POKE BLK +4 , ALQ: POKE BLK+5,AHI 
IC 8060 SECHI = INT (SEC/256) : SECLO = SEC-256 *SECH I 
GH8070 POKE BLK+10, SECLO: POKE BLK+11,SECHI 
II 8080 Q = USR (ADR (DSKTNV*) ) : NR = PEEK ( BLK + 3 ) 
GN 8085 IF WH = 5 THEN 8100 
GL 8086 IF NR=1 THEN 8100 
NK 8090 POSITION 0,0:7 CHR*(125):7 :7 -.7 

OR ";SEC; " = BAD SECTOR": IF AP=1 

8100 
NF 8095 7 :7 "ANY KEY TO CONTINUE" : GET # 

P :GOTO 300 
U 8100 RETURN 



i6) : ALO = A 



"SECT 
THEN 

, P: PO 
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Appendix 

How to Type In Programs 



In order to make special characters, inverse video, and cursor 
characters easy to type in, we use the following listing 
conventions for all the programs in this book. Please refer to 
the table and explanations if you come across an unusual sym- 
bol in a program listing. 

Conventions 

Characters in inverse video will appear like: n^'J^rH^'-Hfljr 
Enter these characters with the Atari key. 



When you see 


Type 

ESC SHIFT < 


Sfc 


■e 


[CLEAR) 


K 


Clear Screen 


(UP} 


ESC 


CTRL - 


t 


Cursor Up 


(DOWN) 


ESC 


CTRL - 


* 


Cursor Down 


(LEFT > 


ESC 


CTRL + 


* 


Cursor Left 


(ribht; 


ESC 


CTRL < 


-» 


Cursor Right 


(BACK S) 


ESC 


DELETE 


•< 


Backspace 


(DELETE) 


ESC 


CTRL DELETE 


CI 


Delete Characte 


( INSERT) 


ESC 


CTRL INSERT 


13 


Insert Characte 


(DEL line; 


ESC 


SHIFT DELETE 


rt 


Delete Line 


(INS LINE) 


ESC 


SHIFT INSERT 


a 


Insert Line 


(TAB) 


ESC 


TAB 


k 


TAB key 


(CLR TAB) 


ESC 


CTRL TAB 


a 


CI ear TAB 


(SET TAB) 


ESC 


SHIFT TAB 


D 


Set TAB stop 


(BELL) 


ESC 


CTRL 2 


a 


Ring Buzzer 


(ESC) 


ESC 


ESC 


t 


ESCape key 



Graphics characters, such as CTRL-T, the ball character, will 
appear as the normal letter enclosed in braces, {T}. 

A series of identical control characters, such as 10 spaces, 
3 cursor lefts, or 20 CTRL-Rs, will appear as {10 SPACES}, {3 
LEFT}, {20 R}, etc. If the character in braces is in inverse 
video, that character or characters should be entered with the 
Atari key. 

Program entry can be mistake-proof if you use "The 
Automatic Proofreader" by Charles Brannon; see Chapter 1. 
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Index 



abbreviations 48 

address 4 

ADSR envelope 23-24 

adventure games 101-2 

"Alphabone Hunt" program v, 121-25 

altitude 209 

ANTIC chip 3 

applications 163-219 

arrays 19-21, 38, 167-68 

array/string table 40-41 

"Art Class" program 135-40 

ASCII 166 

Atari 825 printer 156 

Atari Program Recorder 221 

"Atari Tape Enhancer" program package 
221-24 

ATASCII 5, 38-39, 41, 231, 233, 236 

attack 23 

audio control register 214 

"Automatic Proofreader, The" 47-49 

azimuth 209 

BASIC keywords 185 

binary configurations of memory loca- 
tions, manipulating 13-18 

border color 8 

"Box Hunt" program 99-100 

BREAK key 132, 216 
disabling 8 

bubble sort 195 

buffer 222, 229-30 

cassette buffer 222 

characters 56, 103, 121, 154-55 

checksum 47 

chords 25 

"Chords" program 25, 30-31 

cold start 8 

color 8-9, 14, 45-46, 126, 154 

"Color Matcher" program 45-46 

color registers, POKE and 8-9 

comma 157 

COMPUTEI's First Book of Atari Graphics 
93 

COMPUTEI's Mapping the Atari 12 

condensed print 167 

COPY DOS command 229 

copying sectors 238-39 

"Coupon File" program 182-92 

cursor 9-10 

cursor position 10 

DATA statement 156, 158, 195 

DATA statement file 193 

decay 23 

disabling the keyboard 12 



"Disk Catalog Utility" program v, 
225-28 

disk control block 229 

disk directories 163-64 

disk directory 225-26 

disk drive 135, 182 

disk file ID number 236 

disk files v, 135, 167-68, 198, 225-39 

disk mapping 235-36 

"Diskovery" program 229-47 

display list 154 

display list interrupt 136 

distortion 23 

DLL See display list interrupt 

DLI pointer 136 

"Dollars from Heaven" program 93-98 

DOS 229 

DOS directory 229-39 

DOS sector map 236 

"Dot Drawing" program 132-34 

"Dots" program 73-78 

"Dragon's Den" program 101-12 

DRAWTO command 44, 163 

duration, of a musical note 25, 214-15 

dynamic keyboard 193 

education 119-60 

educational programs, adding excitement 
to 154-55 

"Envelope" program 26-27 

Epson MX-100 printer 168 

"Exciting Inputs" program 155 

filename 135 

files 167-68 

fine scrolling (XL) 11 

FOR-NEXT loop 142 

foreign language symbols (XL) 1 1 

games 53-117 

GET statement 5 

COSUB 19, 21 

GOTO statement 21 

graphics 6, 20-21, 14, 44, 56, 103, 121, 
154-55, 163 

graphics cursor 10 

GRAPHICS mode 11, 136, 163 

GRAPHICS 2 mode 45 

GRAPHICS 3 mode 43 

GRAPHICS 8 mode 43, 136 

GRAPHICS 10 mode 135-37 

GT1A graphics chip 3, 135 

HELP key (XL) 12 

"Horizon: A Celestial Coordinates Cal- 
culator" program 209-13 

"Hyperword" program 141-47 
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INPUT statement 5 

interrupt 56, 93, 136, 148, 216, 231 

inverse characters 9-10 

inverse key 6-7 

inverse video 6 

"Investment Tracker" program v, 

193-208 
invisible disk files 232-34 
"Invisible Music" program 214-17 
joystick 19-22, 56, 65, 73-74, 79, 99, 

102-3, 113, 135 
"Joystick Reading with Arrays" program 

21-22 
"Joystick Reading with GOTO" program 

22 
joystick routines, efficient placement of 

19 
JSR opcode 216, 230 
key 6, 7, 8, 9, 12, 14, 43, 53, 65, 80, 121, 

132, 141, 216, 230 
keyboard 5-6, 163, 193 

checking with peek 5 
keyboard buffer 5-6 
keycodes 5 

large characters 154-55 
LIST command 158 
LOAD DOS command 229 
locked sectors 237-38 
logical program line 185 
LPRINT statement 225 
luminance 8, 45 

machine language routines 53, 21, 163 
machine language, mixed with BASIC 

66-67 
"Melodies" program 24, 27-29 
"Memory Match" program v, 113-17 
music, outside of BASIC 214-16 
"Nessie" program v, 53-64 
NEW command 43 
note, musical 214-16 
offset 41-42 

operating system 229-30 
OPTION key 7, 80, 141 
PEEK function 3-5 
pitch 23, 25 
"Player 1" program 29 
"Player 3" program 32 
"Player 4" program 26, 37 
player/missile graphics 3, 14, 53, 80, 121 
PLOT command 20-21, 44, 163 
POKE statement 3-5, 132 
POKEY chip 3 
POSITION statement 10, 57 
protecting disk files 232 
"Pyramid Math" program v, 126-31 



question mark, input without 163 
redefined characters 56, 103, 121 
register 1, 4, 8-9, 14, 214 
release 23 

return key mode 193, 195, 196 
"Reversi" program v, 79-92 
right ascension 209 
RTS opcode 216, 230 
SAVE command 158 
scalars 38 

screen blanking 8-9 
screen width 9 
scrolling 11 

sectors 229, 236, 237-38, 238-39 
SELECT key 7, 53, 80, 141, 230 
sequential files 167-68 
SETCOLOR statement 8-9, 126, 154 
shadow registers 4 
"Shopping List" program 163-79 
6502 microprocessor 3 
"Song Editor" program 26, 32-36 
sort 195 

sound 11, 23-37, 214-17 
sound register 1, 14, 214 
sound synthesizers 23 
speaker 8 

special characters, printing 157-58 
START key 7, 65, 80, 121 
"Stock Market" program 148-53 
stocks 193-97 
string variables 38, 41-43 
strings 38, 41-43, 222 
sustain 23 

SYSTEM RESET key 8, 9, 14, 43 
tabbing 10 

"Tank" program 65-72 
tape 221-24 

"Tape File Maker" program 222-23 
"Tape File Reader" program 223-24 
tape files 221-22 
"Test Maker" program 156-60 
text cursor 10 

text window 132, 136, 141, 154, 163 
timer interrupt 216 
tone 214 
transposition 48 
TRAP statement 20-21 
typing in programs 251 
undeleting disk files 231-32 
"Understanding PEEK and POKE" pro- 
gram 13-18 
universal time 209 
USR statement 56, 67, 21 
variable name table 38-40 
variables 19-21, 38-43, 167-68 



~ 
~ 
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VBI. See vertical blank interrupt 

VBLANK 155 

vertical blank interrupt 56, 93, 148, 216, 

231 
VIC-20 computer 221 



voice 23, 214 

volume 23 

warm start 8 

wild card 225, 226 

XL operating system 11- 



12 
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Notes 



If you've enjoyed the articles in this book, you'll find the 
same style and quality in every monthly issue of COM- 
PUTE! Magazine, Use this form to order your subscription 
to COMPUTE! 

For Fastest Service 
Call Our Toil-Free US Order Line 

800-334-0868 

In NCcall 919-275-9809 



COMPUTE! 

P.O. Box 5406 
Greensboro, NC 27403 

My computer is: 

D Commodore 64 □ TI-99/4A □ Timex/Sinclair □ VIC-20 □ PET 

D Radio Shack Color Computer □ Apple □ Atari □ Other 

D Don't yet have one... 



D $24 One Year US Subscription 

□ $45 Two Year US Subscription 
D $65 Three Year US Subscription 

Subscription rates outside the US: 

D $30 Canada 

D $42 Europe, Australia, New Zeland/Air Delivery 

□ $52 Middle East, North Africa, Central America/Air Mail 
D $72 Elsewhere/Air Mail 

□ $30 International Surface Mail (lengthy, unreliable delivery) 

Name 

Address 

City State 7Jp_ 

Country 

Payment must be in US funds drawn on a US bank, international 
money order, or charge card. 
D Payment Enclosed □ Visa 

□ MasterCard □ American Express 

Acct. No. Expires / 



Your subscription will begin with the next available issue. 
Please allow 4-6 weeks for delivery of first issue. Subscription 
prices subject to change at any time. 



COMPUTE! Books 

Ask your retailer for these COMPUTE! Books or order 
directly from COMPUTE!. 



Call toll free (in US) 800- 
9809) or write COMPUTE 
Greensboro, NC 27403. 



■334-0868 (in NC 919-275- 
Books, P.O. Box 5406, 



Quantity Title 



Price" 

$14.95 
$14.95 
$12.95 



Total 



Machine Language for Beginners 

The Second Book of Machine Language 

COMPUTEI's Guide to Adventure Games 

Computing Together: A Parents & Teachers 

Guide to Computing with Young Children $12.95 

Personal Telecomputing $12.95 

BASIC Programs for Small Computers $12.95 

Programmer's Reference Guide to the 

Color Computer $12.95 

Home Energy Applications $14.95 

Creating Arcade Games on the Timex/Sinclair $12.95 

COMPUTEI's First Book of PET/CBM $12.95 

Commodore Peripherals: A User's Guide $ 9.95 

All About the Commodore 64, Volume 1 $12.95 

COMPUTEI's Commodore Collection, Volume 1 $12.95 

Every Kid's First Book of Robots and Computers $ 4.95t 

The Beginner's Guide to Buying a 

Personal Computer $ 3.95t 

■ Add $2.00 per book for shipping and handling. 

t Add $1 .00 per book for shipping and handling. 

Outside US add $5.00 air mail or $2.00 surface mail. 

Shipping & handling: $2.00/book 

Total payment 



All orders must be prepaid (check, charge, or money order). 

All payments must be in US funds. 

NC residents add 4,5% sales tax. 

□ Payment enclosed. 

Charge □ Visa □ MasterCard □ American Express 

Acct. No Exp. Date 

Name 

Address - 

City 



"Allow 4-5 weeks for delivery. 

Prices and availability subject to change. 

Current catalog available upon request. 



State 



Zip. 



COMPUTE! Books 

P.O. Box 5406 Greensboro, NC 27403 

Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly from COMPUTE!. 

For Fastest Service 

Call Our TOLL FREE US Order Line 

800-334-0868 

In NCcall 919-275-9809 

Quantity Title Price Total 



COMPUTE! 's First Book of Atari 


$12.95 


COMPUTEi's Second Book of Atari 


$12.95 


COMPUTE! 's Third Book of Afari 


$12.95 


COMPUTEi's First Book of Atari Graphics 


$12.95 


COMPUTEi's Second Book of Atari 
Graphics 


$12.95 


Mapping the Atari 


$14.95 


COMPUTEi's First Book of Atari Games 


$12.95 


The Atari BASIC Source Book 


$1295 


Inside Atari DOS 


$19.95 


Machine Language for Beginners 


$14.95 


Second Rook of Machine 1 onguage 


$14.95 


Computing Together A Parent and 




Teacher's Guide to Using Computers 
with Young Children 


$12.95 


Personal Teleoompt iting 


$12.95 


Home Fnergy Applioations on Your 
Personal Computer 


$14.95 



Add $2.00 shipping and handling. Outside US add 
$5.00 air mail or $2.00 surface mail. 

Please add shipping & handling for each 

book ordered 

Total enclosed or to be charged 

All orders must be prepaid (money order, check, or charge), All 
payments must be in US funds. NC residents add 4Vfe% sales tax. 

□ Payment enclosed Please charge my: □ Visa □ MasterCard 

□ American Express Acct. No. Expires 



Name. 



Address. 



City State Zip_ 

Country 



Allow 4-5 weeks for delivery. 

Prices and availability subject to change without notice. 



hether you've had an Atari for years, or just bought 
one of the newer XL models, you'll find COMPUTERS 
' Atari Collection, Volume I full of useful, never- 
before-published articles and programs. 

There are games and educational programs to entertain 
and challenge, tutorials that illustrate BASIC programming 
techniques, and applications that turn your computer into a 
management tool. 

The editors of COMPUTE! have collected the best original 
programs and articles from more than two dozen experi- 
enced Atari programmers. High-quality programs and clearly 
written articles — both hallmarks of COMPUTE! Publications — 
will show you just what your Atari can do. 

Here's a sample of what's inside: 

• "Nessie," a nonviolent game where you try to photograph 
the elusive Loch Ness monster, 

• Utilities which make it easy to catalog disks or locate pro- 
grams on tape. 

• "Reversi" and "Memory Match," thinking games that probe 
your logic while you have fun. 

■> "Diskovery," to help you explore your disks, sector by sector. 

Programs for children that teach and entertain. 
< Editors to help you create sounds and songs for that special 

program. 

• "Investment Tracker," a data base program that stores and 
analyzes your investments. 

Joystick routines you can add to any program. 

An introduction to PEEK and POKE, with numerous practical 

examples. 

• And "The Automatic Proofreader," which helps you cor- 
rectly type in programs. 

It's been almost a year since COMPUTE! Publications re- 
leased a new Atari book. Now, with its all-original programs 
and articles, and with something for both experienced and 
beginning Atari users, COMPUTEI's Atari Collection, Volume 1 
offers a new and detailed look at your favorite computer's 
power and flexibility. 



ISBN 0-942386-79-5 



